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DISCLAIMER 



Although each program has been tested by its contributor, 
no warranty, express or implied, is made by the contributor 
"or any User's Group, as to the accuracy and functioning of 
the program and related program material, nor shall the fact 
of distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or any User's Group, in connection 
therewith. 
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Correction 
July 20, 1967 



Attached are corrected pages 2 and 169 for the subject program. 
These pages have been prepared to allow you to replace these sheets 
in your writeup affected by this correction. 

Replacement of the program card decks have also been made. 



COMMON USEES GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Date 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

Comment 



2. Does the program do what the abstract says ? Yes No_ 

Commen t 

3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 



4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 



5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 



6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 



8. Does the Program meet the minimal standards of COMMON? Yes No_ 

C om m ent 

9. Were all necessary parts of the program received? Yes No_ 

Comment 



10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 



Please return to: Your Name 

IBM Corporation Company 

Program Information Department 

40 Saw Mill River Road Address 

Hawthorne, New York 10532 ^ ^ ., 

Attn: PREP FORM COORDINATOR ^^^^^ ^^^^ 

THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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Ui subroutint 



CUd (An Operating System for PDQ Fortran) 

;ici.ssifi cation; 2»0 Operating System 



Author; Oi-G^nization: Grant. Lillys McAteer - J & L Steel Corporation, 

Maskiell, Powell - Pennsylvania Transformer Division. 

1 - 20 - 67 Users Group iviembership Code: 308I 



Direct Ir.cuiries to Xame: Frank H. Maskiell^ Pennsylvania Transformer Division^ 

Box 330, Canons burg. Pa. p:.c.-c: Ul2-7U$-9100 (20$) 

Dci; cri;;:iorx/?ur-po je: (5. Ivlethod; 6. Restriction/ Rii-ije; V/hen A^ipiicable) 



GUD is a PDQ Fortran operating system providing batch processing, a mixed group of 
Fortran cwnpllation and execution nin a. Tt permits storage, of pro grams and data 
•n ene er more 1311 disk drives* Segmentation of programs is possible. The system 
contains very comprehensive error checking. The operating system resides an the 
disk and occiipies less than ^% of a single disk. A lItU3 Printer may be used for 
output if available but is not required for the use of the system. 



7. Specifications (Check or fill in appropriate spaces); 

a. Scorage used by program: The system ecqupies the last ^ c ylinders of the di sk. 

b. Zcuiprr.ent required by program: Object Fortran program's commence at 07650. 

Card System X ; Iviagnetic Tape System_ i'^^o, of Tapes ; 

Paper Tape System j Disk File System X ; No, of Packs 1 ; 

■TNS, TXF, MF X ; Auto divide X ; Indirect addressing X iFloatinj point hardwars 



Other (specify) System will adjust for any memory size. Additional disk drives may be 
tised if available. 

Can program be used on lesser Machine? NO . Specify which recuireman'cs can be 

easily removed 
c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format ; 



Fortran II ; Mainline, Complete ; Subroutine or function subprogram(S or F) 

Is the program a library (ie, SPS) function to the Fortran system checked? 

S?S _; SPS - 1620/ 1710_ ; 

Iviainiine, Com.plete ; Macro ; Subroutine ; ; 



Other programming language: ; Give details 



used in the writeup: The entire system has been written in AFIT SPS 1.1.023 
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c4d 

An Operating System Built Around PDQ 
by 

lean Grant, Gordon Lilly, ^ Frank Masklell,-^ 
Mary Lynn McAteer,^ Lawrence PowellS 



ABSTRACT 

C4d Is a PDQ operating system for the IBM I62O. It 
provides for batch processing a mixed group of compilation and 
execution runs. It permits storage of program and data on one 
or more I31I disk drives. Segmentation of programs Is possible 
under c4d. The system contains very comprehensive error checking. 

ACKNOWLEDGMENTS 

The authors gratefully acknowledge the contributions 
of many friends and colleagues: 

John Burgeson of IBM whose FORTRAN II DIAGNOSTICIAN 
provided the original basis for the c4d diagnostic routine; 
James Taylor for a faster routine for the compiler symbol table 
scan; Dick Pratt for his preliminary version of DATA SPS which 
was used exclusively in assembling the system; Manfred Flless 
and Joseph Smith for contributions to the sample procedures; 
John Holmes, Stewart Lee and James Field, and Donald Jardine 
for their suggestions built into the original PDQ; Jack O'Keefe 
for the REREAD feature; Jim Deck, Jack Irabertson, and Bob 
Humbrecht for testing the early version of the system and 
suggesting Improvements. 



1. Junior Research Mathematician, Jones & Laughlin Steel Corporation 

2. Research Supervisor, Jones & Laughlin Steel Corporation 

3. Computer Supervisor, Pennsylvania Transformer Division of the 

McGraw Edison Company 

4. Research Physicist, Jones & Laughlin Steel Corporation 

5. Scientific Programmer, Pennsylvania Transformer Division of 

the McGraw Edison Company. 



TABLE OF CONTENTS 
DECK LABELS PAGE 2 

USERS MANUAL 3 

LANGUAGE SP ECI F I CAT I DNS 4- 

STATEMENT FORMAT 6 

PERMISSABLE STATEl^iENTS 6 

I/O LISTS 8 

FORMAT 9 

SYSTEM CONTROL CARDS 11 

DEBUGGING 12 

CHECK STOPS 13 

OPERATING INSTRUCTIONS 14 

PROCEDURES 15 

NEW SUBROUTINES 16 

ERROR MESSAGES 18 

USERS MANUAL INDEX 20 
SYSTEMS MANUAL 

INTRODUCTIUN 21 

SYSTEM DECK AND LOADER 26 

EXECUTIVE AND CONTROL CARDS 27 

SCAN 3U 

DIAGNOSTICIAN 31 
INTERFACE LAbELS AND DISK ADDRESSES 36 
SYSTEi-i SOURCE LISTINGS 

LOADEK 37 

tXtCUriVE 39 
SCAN 

DI AGNUSTICI AN 62 

CUmPILER >V 

CLASS A SUbkUUTlNfcS 127 

RELUCaTakLE SUtJKUOT IimES 137 

FOKTRaw LadEL iNUEXtK 144 

FLUi'J CHARTS 161 

SYSTEn DECK LISTING 16S 

TEST DECK LISTlNo 1B2 

RESULTS OF RUNNING TEST DECK lb7 



uISCLaImEk 

ALTHOUGH EACH PRUGRaM HAS BEEN TESTED BY ITS CONTRIBUTOR, NO WARKAI'TY, 
EXPkESS or IMPLIED, IS MADE BY THE CONTKIBUTOR OR COMI-iON, AS TO THE 
ACCORACY AND FUNCTIONING OF THE PRUGRAM AND RELATE!) PROGKAi-i maTEKIAL, NijK 
SHALL THE FACT OF DISTRIBUTION CONSTITUTE ANY SUCH WARRANTY, aNO NO 
RESPONSIBILITY IS ASSUMED bY THE CONTRIBUTOR OR COMMON, IN CUNNECTinN 
THEREWITH. 



DECK LABELS 



DECK 1 SYSTEM DECK CARDS NUMBERED IN COLUMNS 1-5 



IDENTIFIER - CARD CONTENTS 



1ST 3 CARDS - (NOT SEQUENTIALLY NUMBERED) 

(A) TURN OFF INDEX REGISTERS 

(B) TURN ON INDIRECT ADDRESSING 
(D) READ NEXT CARD 

00000- - LOADS LOADER INITIALIZATION 

00001- 00026 - LOADER INITIALIZATION 

00997- - CAUSES BRANCH INTO LOADER INITIALIZATION 

00998...... - C4D COLD START CARD 

00999- - LOADS EXECUTIVE TO CORE 

01001-01155 - EXECUTIVE ROUTINE 

01999- - CAUSES BRANCH TO EXECUTIVE INITIALIZATION, 

CONTAINS EXEC MINUS DISK TABLE DISK CONTROL FIELD 
02001-02109 - CLASS-A SUBROUTINES 

02999- - CAUSES BRANCH TO CLASS A INITIALIZATION, 

CONTAINS CLASS A SUBS DISK CONTROL FIELD 
03001-03064 - SCAN ROUTINE 

03999- - CAUSES BRANCH TO SCAN INITIALIZATION, 

CONTAINS SCAN DISK CONTROL FIELD 
04001-04244 - DIAGNOSTICIAN I 

04999- - CONTAINS DIAG. I DISK CONTROL FIELD 

05001-05029 - DIAGNOSTICIAN II 

05999- - CONTAINS DIAG. II DISK CONTROL FIELD 

06001-06096 - LABEL INDEX ROUTINE 

06999- - CONTAINS LABEL INDEX DISK CONTROL FIELD 

07001-07251 - COMPILER I 

07999- - CAUSES BRANCH TO COMPILE I INITIALIZATION, 

CONTAINS COMPILE I DISK CONTROL FIELD 
08001-08029 - COMPILER II 

08999- - CONTAINS COMPILE II DISK CONTROL FIELD 

09001-09019 - ERROR SUBROUTINES 

09997-09998 - CAUSES BRANCH INTO ERR SUBS INITIALIZATION, 

CONTAINS ERR SUBS DISK CONTROL FIELD 
09999- - SERVES TO COLD START AFTER SYSTEM LOAD 



♦DATE SYSTEM LOAD CARD 
♦DISK CARD 

•SRS 16 CARD AND RELOCATABLE SUBROUTINE DECK 



DECK 2 TEST DECK 



THE C4d operating SYSTEM 



Introduction 

C4d is an operating system built around an extended 
version of PDQ FORTRAN. It is written for the IBM l620 with a 
1311 disk file, indirect addressing, and the special instructions 
TNS, TNF, and MF. C4d will also utilize a second disk drive and 
the 1443 printer if these are available. It is self -adapting for 
siny core size. 

C4d consists of the following programs: 

1. The statement scan routine 

2. The diagnostic routine 

3. The compiler routine 

4. The class A subroutines 

5. The relocatable subroutines 

6. The label index routine 

7. The executive routine. 

The statement scan routine reads each source program 
statement, removes the blanks, determines the type of statement, 
and stores this Information on the disk for later use by the 
diagnostic and compiler routines . After it has read the entire 
source program, it calls the diagnostic routine from the disk. 

The diagnostic routine is a modified version of the 40K 
FORTRAN II Diagnostician. The modifications accommodate the dif- 
ferences in language between FORTRAN II and PDQ FORTRAN, permit the 
use of the 40K Diagnostician on a 20K machine, and incorporate the 
Diagnostician as a routine within C4d. If the diagnostic routine 
finds errors, it punches or prints error messages, lists the entire 
source program on the l443 if available, and calls the executive 
routine from disk. If no errors are found in the program, the 
diagnostic routine calls the compiler. 

The compiler routine isa modified version of the original 
C2 processor for PDQ. Error messages have been eliminated as these 
are now handled by the diagnostician. ACCEPT and IF (SENSE SWITCH) 
statements have been eliminated as they have no place in an operating 
system designed for open shop prograjmning and closed shop operation. 
DATA statements now permit initial values of variables to be defined 
at compile time. Iteration within input/output statements is now 
permissible. The ability to segment programs has been added to 
avoid core size limitation on program length. More symbols are 
permitted since the compiler routine occupies less core storage. 
The length of Integer variables is now ten digits , This allows 
Integer arithmetic in the comparison of alphameric fields . Finally, 
no object decks are produced, since C4d object programs are stored 
temporarily or permanently on the disk. 
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The class A subroutines are little changed from their 
PDQ ancestors. They now detect undefined symbols at run time and, 
in this event, provide a symbol table dump before they return 
control to the executive routine. The relocatable subroutines 
have real or integer values according to their initial letters , 
The LOG subroutine is now called ALOG since it is a real function. 
Eight new subroutines have been added to the original set of PDQ 
relocatables , They Include a disk data routine, a link routine 
which calls another program from disk without destroying the con- 
tents of the COMMON area, and a random integer generator. 

The label Indexer provides ein index of all statement, 
procedure, and segment labels and of all variable names. The index 
gives the source card number where the label or name is defined and 
the source card numbers where they are referenced. If the source 
cards are not numbered, the scan routine supplies sequential numbers. 

The executive routine determines the nature of each Job 
from a control card. It then loads the appropriate system routine 
or object program from disk. It acts as librarian for users pro- 
grams on disk, it loads and relocates the relocatable subroutines, 
and it prints headings and dates for each Job. Finally, it permits 
automatic exit from the system by loading another program not handled 
under the system. 

Speed comparisons with other systems will be possible 
only after extended experience with c4d and will vary for different 
Jobs and for different machine configurations. Unlike the IBM 
MONITOR system, c4d has no provision for assembly language programs 
and does not permit separate compilation of subprograms with local 
variable najties, statement labels, and parameter lists. These limi- 
tations, however, must be balanced by Important advantages for the 
installation which runs mainly FORTRAN programs. The system uses 
only 5^ of the disk an:V the rest of the disk may be divided into 
program storage and working data storage to suit the needs of each 
particular installation. The comprehensive diagnostics at compile 
and run time are invaluable in debugging. Other advantages of C4d 
are the efficient use of core and the high speed of disk operations 
for program segmentation and data storage. 

Documentation consists of the Users Manual and the Systems 
Manual . The Users Manual defines C4d as a programming language for 
users who have a basic knowledge of FORTRAN. It also includes 
operating instructions and a description of control cards and error 
messages. The Systems Manual is written for systems programmers 
who wish to correct or extend c4d or who are Just curious about 
the construction of the system. 
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USERS MANUAL FOR C4d 
Specifications of the C4d Language 

Variables 

Variable names may contain up to five alphameric charac- 
ters and must start with a letter. Variables may be either integer- 
valued or real -valued. 

1. Integer variables are ten decimal digits. Any 
variable whose name starts with the letters I,J,K,L,M, or N is 
an integer. 

Integer addition, subtraction, and multiplication are 
performed modulo 10,000,000,000. This means that only the ten 
right-most digits are retained out of a possible twenty digit 
product. No error message is printed if an overflow occurs. The 
quotient of an integer division is converted to an integer by 
truncation. 

Examples: (500,000*25,000) Mod 10'^^ = 12,500,000,000 Mod 10"^° 

= 2,500,000,000 
5/2 Truncated =2.5 Truncated 
= 2 

2, Real variables have names with initial letters other 
than I,J,K,L,M,N. They are stored in the l620 in excess-50 floating 
point form, that is with a two digit exponent and an eight digit 
fraction as follows : 

eeffffffff represents .ffff fff f *lo(ee-50) 

Examples: 5131^15927 represents 0.3l4l5927 x 10"^ or pi 

¥910000000 represents 0.1 x lO""*- = 0.01 

Zero is a special, case and is stored as UOOpOOOOOO. Thus 
a real variable V may have the following values : 

0.1 X 10"'^^ 0.99999999 x 10^^ or V = 



O 
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Arrays 

Vectors and matrices may be stored, and their elements are 
addressed by means of integer subscripts. 

Examples: X(I), Y(I,J), NAME(M), P(2) 

A limited amount of arithmetic is permitted within the sub- 
script parentheses. X(I-3) and Y(I+1, J+2) are permissible but X(2+I), 
X(2*I), X(I+J), X (2*1-3) are not. 

The subscripts may have only strictly-positive values, X(0), 
Y(-3) will refer to some other variable or some element of another 
array. The array is stored in core by coliimns, with the first element 
in the highest numbered core location. A matrix Btl,J) with two row 
and two columns might therefore appear in core as follows: 



Core Location 


Element 


18999 


B(l,l) 


18989 


B(2,l) 


18979 


B(l,2) 


18969 


B(2,2) 



Subroutines 

Certain commonly used functions are available as subroutines . 
Other subroutines may be added to the system as described in Appendix 
2. These subroutines are loaded relocatably into core only if they 
are called for by the program to be executed. Real functions have 
real arguments and integer subroutines have integer arguments. Functions 
are identified as real or integer by the initial letter of the sub- 
routine name in the same way as variables , 

The following table of the subroutines which are supplied 
with C4d includes their range and associated error messages. The 
subroutines may be addressed with or without a final F e.g. SIN(x) 
or SINF(x). 

1. SIN/COS - evaluates sin(x) or cosine (x) when x is 
expressed in radians and X< 10' 

Error Message - TRIG if (x)^107 
Length - 7l8 digits 

2. EXP - evaluates „ 
Error Message - OFLO if e^^lO-^^ 
Length - 536 digits 

3. ALOG - evaluates loge(x) where x> 

Error Message - OFLO if x - 0, ERLN if x< 
Length - 582 digits 
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4. SQRT - evaluates x when x G 
Error Message - NSQR if x 
Length - 366 digits 

5. ABS - evaluates x 
Length - 38 digits 

6. NABS - evaluates n 
Length - 38 digits 

7. ATAN - evaluates arctan(x). Result is in the 
range /2 ATANF /2 

Length - 846 digits 

8. DRH - drops decimal digits of a real variable 
Length - 128 digits 

9. NPR - generates equiprobable pseudo-random 
Integers in the range 00000 NPR 99999. 
Different starting points in the sequence can 
be defined by different odd integer arguments . 
After the first execution of NPR the argument 
is ignored. 

Length - 208 digits 

10. MOVE - MOVEf-l), reads a group of records from disk 

MOVE^O) seeks a group of records on disk 
MOVE(l) writes a group of records on disk 

Further details are given under the heading Disk 
Storage of Data . 

Error Messages - DISK indicates computer malfunction 

- TASK indicates programming error 
Length - 994 digits 

11. MOD-MOD(n/M) evaluates N Mod M i.e. (N-(N/ly[)*M) 
Note: MOD in fact ignores the argument and picks 
up the remainder from the last executed division. 
Since this remainder is only erased by another 
divide, a multiply, a fix to float operation, or 
the use of a doubly subscripted variable, it is 
possible to use a dummy argument under certain 
circumstances". 

Example: NLB = NOZ/I6 

NOZ = M0D(N0Z/l6) 

can.be replaced by the following more efficient 
statements : 

NLB = NOZ/16 
NOZ = MOD(l) 



.0 
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However, this trick would lead to error in the 
following case: 

NLB (I, 4) = NOZ/16 
NOZ = MOD (NOZ/16) 
Length - l4 digits 

12. SAVE(C) - permits temporary storage of the contents 
of the input/output area, SAVE is used in conjunc- 
tion with the REREAD statement. 

SAVE^-l.^ saves the contents of the I/O area 
SAVE(+1.) restores the contents of the I/O area 

Error Message - SAVE if SAVE(+1.) is executed 
before SAVE (-1.) 
Length - 296 digits 

13. LINK(N) - permits a program to call another, program 
on the disk without zeroing the symbol table. The 
program so called is not protected against the use 
of undefined variables . The COMMON statement may 
be used to ensure that both programs refer to the 
same variable in the same location. 

The argument N is the numeric representation of the 
name of the program called. N can be readily defined 
by the DATA statement . 

Example: M = LINK(N) 



DATA, N/5HPL0T1/ 
END 

will call the program PLOTl 
Length - 80 digits 

l4 . NFIL(N) - converts an integer in the range 
0^|n|4 99999 Into its alphameric form. 
Leading zeroes are converted to 00 and not 70^. 
Example: K = NPIL(987) will set K equal to 0000797877 

The major application of NFIL is to permit output of 
the value zero as a blank. 

Error Message - NFIL indicates out-of-range variable 
Length - 222 digits 
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15. NUPL(N) allows for additional printer carriage 
control by altering the class A subroutines as 
specified by the subroutine argument, N. 

NUPL(l) suppresses skipping at the 

end of a page 
NUPL(-l) restores skipping at the 

end of a page 
NUPLflO) suppresses spacing when printing 
NUPL(-i6) restores spacing when printing 

Error Message - NUPL if N = 
Length - 170 digits 

Storage of Subroutines 

At run time, these routines are stored between the object 
program and the symbol table only if called for in the program. In 
this connection, the programmer should know how the * * operation is 
executed at run time: 

T**P(i.e. Tto the power P) is Interpreted as 

EXP (P * ALOG(t)) 

Therefore, If T is negative, an error message will result. This is 
reasonable because P can be fractional and FORTRAN does not handle 
complex numbers , If the programmer knows that P is an integer, he 
should define it as an integer, e.g. NP. T * * NP uses successive 
multiplication rather than the logarithmic procedure. If P is a 
small constant Integer, e.g. 2, the programmer can save computer 
time and storage by writing T * T. 

Statement Card Format 

Strict FORTRAN rules apply to statement card format. 

1. A comment card must have a C in column 1. 

2. The statement label, if any, must be right justi- 
fied in columns 2 through 5 and be a positive integer in the range 
1 through 9999- It may not contain leading zeroes and must be 
distinct from any other statement, procedure, or segment label. 

3. Column 6 must contain a non-zero digit on any contin- 
uation card. Note, however, that continuation cards are only 
permissible In FORMAT and I/O statements. Furthermore, the card 
preceding a continuation card must end with a comma. 

" 4. The statement text may only occupy columns 7 through 

72. Record marks may not appear in the statement. 

5- The cards may be numbered in columns 77-80. This 
number will appear in the 1443 listing of the source statements at 
compile time. If the first card of the source deck is not numbered, 
then a sequence number will be supplied for the l443 listing. 



Permissible Statements 



A. Arithmetic Statements: 

A = B op C etc. 

Note: There is one known error in C4d inherited 
from FORTRAN (with FORMAT). 

The statements 

A=-B**CorA=-B**I 
will compile as if they were 

A = (-B) * * C or A = (-B) * * I 

B. Control Statements: 



1. 


GO TO n 




2. 


GO TO (nj, n2, . . . , 




3. 


IP (a) ni, 112, n^. 




4. 


DO n 1 = m-]^, m2 or 


DO n 1 


5. 


CONTINUE 




6. 


PAUSE 




7. 
8. 


STOP n 
END 




9. 


BEGIN TRACE F15.d or BEGIN 


10. 


END TRACE 




Input/Output Statements 




1. 


READ n, list 




2. 


REREAD n, list 




3. 


PUNCH n, list 




4. 


PRINT n, list 
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5. TYPE n, list 

6, CONTROL n 

D. Declarative Statements: 

1 . COMMON 

2. DIMENSION 

3 . FORMAT 

4. DATA, name/value/name/value ... name/value/ 

5. SEGMENT n-|_, ng, 

E. Segment Statements: 

1. BEGIN SEGMENT n 

2. END SEGMENT n 

3. CALL SEGMENT n 

F. Procedure Statements: 

1. BEGIN PROCEDURE n 

2. RETURN n 

3. END PROCEDURE n 

4. EXECUTE PROCEDURE n 
Differences from FORTRAN (with- FORMAT) 

IF (a) n^, n2, n3 

Statement labels following the arithmetic expression in 
an IF statement may he replaced by C under the following conditions: 

1. The statement referenced immediately follows the 
IF statement . 

2, The statement is not referenced anywhere else in 
the program. 
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Example: IF (I) 1,2,1 
1 X(I) = I 

can be written as follows 

IF(I) C,2,C 
X(I) = I 

By reducing the number of labeled statements this feature of C4D 
reduces the storage requirements of the symbol table, 

PAUSE 

With sense switch 3 on, PAUSE halts the computer. Execu- 
tion of the program continues when START is pressed. With sense switch 
3 off, PAUSE calls the executive without halting the computer, PAUSE 
should be used only following a TYPE statem.ent which instructs the 
operator on machine set up. 

STOP n 

Prints STOP n and calls the executive routine which pro- 
ceeds with the job specified by the next control card that it finds 
in the card read hopper. 

END 

Calls the executive . 

TRACE 

The results of arithmetic statements may be traced with- 
out the generation of any additional instructions. Replacement type 
statements, that Is: A = B; C = D(K); I = J; will not be traced 
since no arithmetic operation is required. If the replacement state- 
ment includes a subscripted variable on each side of the equality, 
the statem.ent may be traced. This option is under the control of 
the operator (sense switch 4 for trace) and causes the output of 
traced statements to be punched four per card in 115 or E15.8 format, 
followed by the first four digits of the address of the variables 
traced. The trace is printed on the 1443 if available. An E or F 
type format may be specified instead of the more general E15.8 in 
the BEGIN TRACE statement. The field width specified must be 15 
columns e.g. 

BEGIN TRACE F15.5 
BEGIN TRACE El 5. 6 

BEGIN TRACE will turn on the trace feature during com- 
pilation. Each arithmetic statement thereafter will 
be compiled to include tracing. Tracing will be ter- 
minated vfhen an END TRACE card is encountered. Succeeding 
statements will not be traced until another BEGIN TRACE 
is read. 
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INPUT/OUTFUT LISTS 

If the length of an input /output statement requires more 
characters than are available before column 73, the list may be con- 
tinued on the next card. Terminate the partial list preceding a 
continuation with a comma. The next card must have a digit punched 
in column 6 followed by the continuation of the list. 

Single indexing is permitted within a list but not 
multiple indexing. 

Examples: READ 1, (A(I), 1=1,7), (B(J),J=1,7) is permitted 
READ 1, ((A(I,J),I=1,2), J=l,3) is not permitted 

READ 

All 80 columns of each data card may be read. 

REREAD 

The programmer will first call for a norm.al read oper- 
ation, specifying a format which will define the identifying data 
in the card. After programming the necessary logical operations 
on the identifying data, he will call for a reread operation, speci- 
fying the desired- format for the particular card. 

Example: READ 1,J 

GO TO (17, 18, 19), J 

17 REREAD 2, D, E, F 
GO TO hnn 

18 REREAD 3, A, B, C 
GO TO nnn 

19 REREAD 4, X, Y, Z 

FORMAT 1 defines the field for the control digit J. If J is 1, 
control transfers to statement 17 and the card contents are reread 
in FORMAT 2, etc. 

Note that any input/output statement interposed between 
the READ statement and its corresponding REREAD statement destroys 
the contents of the I/O area. The SAVE subroutine was written to 
overcome this difficulty. 

Example: 1 READ 100, I 

TEMP = SAVE(-1. ) 
PRINT 101, L,M 
TEMP = SAVE (+1.) 
2 REPi^AD 102, J,K 

Statement 2 stores in J. and K the contents of the card read by 
statement 1. Without the use of SAVE it would have picked up the 
information stored in the I/O area by the PRINT statement. 



PUNCH 



PRINT 



■12- 



All So columns may be used for card output. 



Up to 80 columns may be printed in each line on the type- 
writer following a carriage return. With a l443 up to l44 characters 
may be printed on the l443 printer. However, in most installations 
the l443 printer will permit only 120 characters per line. 

TYPE 

Up to 80 columns are printed on the typewriter with 
carriage return. 

CONTROL n 

This statement controls the typewriter carriage in c4d. 

n = 101 spaces typewriter 

n = 102 returns typewriter carriage 

n = 108 tabulates 

CONTROL can also be used for control of the l443 printer 
if available . 



n = 


951 


spaces 


one line before printing 


n = 


952 


spaces 


two lines before printing 


n = 


953 


spaces 


three lines before println 


n = 


962 


spaces 


one line after printing 


n = 


963 


spaces 


two lines after printing 


n = 


971 


skips 


to new page before printing 



For a Mod II I62O two other control options are available 

n = 103 backspaces the typewriter 

n = lOk gives a line index, that is advances the 

carriage one line without carriage return. 

COMMON 

The COMMON statement is followed by a list of variables 
whose object-time addresses will begin in the first symbol location 
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af ter the function symbols . COMMON is used in conjunction with 
multiple argument subroutines , particularly with regard to the use 
of the disk for data storage under MOVE. COMMON is also used to 
ensure that each of several programs which are run in sequence 
with the LINK subroutine, uses the same core locations for the 
same variables . 

Array variables which are listed in a COMMON state- 
ment will have the necessary space reserved and must not be listed 
again in a DIMENSION statement, CAUTION: The COMMON statement (s) 
must be the first compiled statement (s) in the program. That is, 
COMMON statements may be preceded only by COMMENT cards , 

Example: COMMON A,B,C,D(2,4),E 

FORMAT 

Should a desired set of specifications require more 
characters than are available on the format card, the specifications 
may be continued on the next card beginning in column 7. A non-zero 
digit must be punched in column 6. A single format specification 
may not be split between cards . Any format card to be followed by 
a continuation card should terminate with a comma in anticipation 
of another format specification. The duplication of the format 
statement number on continuation cards in columns 2 through 5 is 
optional , 

Permissible format specifications include I type (Iw), 
P type (Pw.d), E type (Ew.d), A type (Aw), X type (wX), and H type 
(wH). All numerical field specifications and the A specification 
may have fields repeated by preceding the specification by the 
number of required repetitions such as (3F10,2), which is the 
equivalent of (P10.2,F10.2jP10.2) . Multiple format groups, such 
as (3(3P5.2,I3), 2(3l4,5X)), are also permissible. Field and 
group multipliers must be less than or equal to 99. 

I Type : The I_ specification defines a field of w char- 
acters from which, or into which, integer data will be transferred. 
The data must be in integer form with a maximum of 10 digits j however, 
the field width, w, is not so limited. On input, leading or trailing 
blanks are interpreted as zeros. On output, the sign of the variable 
will precede the digits so that a minimum field width of 11 is re- 
quired to ensure complete output of an integer. Should the field 
width be less than one plus the number of digits to be output, the 
width of the field will be automatically increased to accommodate 
the output. This will thereby alter the columns for subsequent 
data in that output statement. 
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F Type : The F specification defines a field of w char- 
acters from which, or into which, real data will be transferred. 
If a decimal point is not included in Input data, the last d char- 
acters of the field will be recognized as decimal digits. On output, 
if the numerical value of the variable requires a field width greater 
than w to permit all non-decimal digits to be output, the specification 
will be automatically changed to an E type specification so that the 
output data will be complete. 

Example: +1728. is the output under the specification (F6.0) of a 
variable. Had the specification been (P5.0), the output 
would have been +.17280000E+04 

Variables in E type notation may be input under the F type specifi- 
cation. 

E Type ; The E specification permits the input or output 
of a real variable in the exponential form; that is, +.XXXE+XX. 
E Type input data must be right Justified within the field. On 
output, 6 characters of the field are required for the sign, the 
decimal point, and the exponential notation. Variables in P type 
notation may be input under the E type specification. 

A Type : The A type specification permits the input or 
output of up to five alphameric characters . The alphameric char- 
acters are converted to their two digit forms and stored in the 
syiiibQl table as a 10 digit integer or real variable. The integer 
form permits arithmetic operations on alphameric data. The width 
of the A field must not exceed 5. The number of alphameric 
characters output will be determined by this field width designation. 

X TYPE (Blank Field Specification) : Blank characters 
may be provided in an output record by means of specification wX 
where w is the x^ldth of the field to contain blanks , When the X 
specification is used with an input record, w characters are 
ignored . 

H Type : The specification wH permits the w alphameric 
characters immediately following H in the specification to be input 
or output. CAUTION: The characters of an H specification may not 
be split on two cards. Should more characters than are available 
on a given format card be required in an H specification, the H 
specification on the first card must Include the count of characters 
on the first card only, the first card must terminate with a comma, 
and a new H specification must be stated on the format continuation 
card for the remaining desired characters. The H type format may 
be used for programs to reproduce card input or to list the contents 
of an input deck. 



e 
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DATA 

Variables may be given initial values at run time by the 
DATA statement(s) rather than by arithmetic statements. The DATA 
statement saves core storage by eliminating both instructions and 
constants. It also permits definition of alphameric constants 

Example: DATA, A/l ,0/I/2/K/3HABC/X (10 )/-3 . l4l6/ 

This statement is equivalent to the following four 
statements, if and only if they are only used for initializing, 
i.e. are only executed once at the beginning of the program. 

A = 1.0 

1 = 2 

K = 4142430000 
X(10) =. -3..l4l6 

The DATA statement (s) must immediately precede the END 

statement . 

Segmentation 

To run a long program in a computer of small memory the 
programmer may break up his prograjn into segments. c4d permits 
these segments to be brought into the core memory from disk storage 
one at a time as needed during program execution. In a segmented 
source program there is an initial unsegmented portion of the pro- 
gram. This unsegmented portion may Include COMMON, DIMENSION and 
FORMAT statements. It must include at least one CALL SEGMENT state- 
ment and must end with one or more SEGMENT declaration statements . 
The segments of the program follow immediately after the SEGMENT 
declaration. 

SEGMENT n2_, n2, n^, . . . , nj^ The n^ are the integer labels for the 
segments included m the program. These labels must be distinct 
from all statement labels and procedure labels. Execution of 
SEGMENT is not meaningful and will be identical to execution of END. 

BEGIN SEGMENT n and END SEGMENT n These statements are used to 
enclose the segment with the label n. CALL SEGMENT n may appear in 
the part of the program prior to SEGMENT or within any of the seg- 
ments other than segment n. At run time the statement CALL SEGMENT 
n transfers the segment n from the disk to the core and branches to 
the first statement in segment n. If multiple entry points within 
a segment are desired, an index should be defined prior to the CALL 
SEGMENT statement and this index used in a computed GO TO statement 
which appears as the first statement in the segment. Exit from the 
)_i segment may be by a GO TO statement or an IF statement which trans- 
O fers control to the initial part of the program before the SEGMENT 
statement. Alternatively, exit may be achieved by calling another 
segment. The END SEGMENT is not to be used as an exit. Execution 
of END SEGMENT is identical to execution of END. 
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Procedures 

A procedure is defined as a group of c4d statements 
which are to be executed as a unit more than once in a larger 
program. Such a group of statements is enclosed by the statements 
BEGIN PROCEDURE n and END PROCEDURE n where n is the procedure 
label. This label must not appear anywhere in the program as a 
statement label; it may not be used in more than one procedure, 
nor may it be used as a segment label. 

The procedure n may be executed at any time by the 
statement EXECUTE PROCEDURE n which transfers control to the state- 
ment immediately following the BEGIN PROCEDURE n statement and obeys 
the statements of procedure n until either of the two following 
situations is encountered. 

(a) the END PROCEDURE n statement is executed, which 
transfers control to the statement immediately 
following the EXECUTE PROCEDURE n statement which 
initiated entry into the procedure. 

(b) a RETURN n statement is executed. This returns 
control to the statement immediately following 
the EXECUTE PROCEDURE n statement which initiated 
entry to the procedure. A RETURN statement is 
valid only within the procedure from which it 
returns control. 

A procedure may include EXECUTE PROCEDURE statements 
referring to other procedures but may not include BEGIN PROCEDURE, 
RETURN, or END PROCEDURE statements referring to other procedures 
or EXECUTE PROCEDURE referring to the procedure within which it is 
placed. 

Appendix 1 gives examples of procedures that may be 
of general utility. Note that the use of large procedure labels 
and statement labels in the examples reduces the likelihood of 
duplicating the statement labels of the main program. 

Data Storage on the Disk 

The subroutine MOVE is written to enable bulk storage 
of data during the execution of a program or a group of consecutive 
programs . It is a multiple argument subroutine with four arguments 
stored in the COMMON area. The use of MOVE is subject to the 
following restrictions . 

1. Data may be read from or written on the disk as 
a group of records, where a record is a positive 
multiple of ten words up to 2000 words maximum. 
The group may consist of one record or a number 
of records, the total number of words within the 
group not exceeding 2000. 
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The first statement of the program must be a 
COMMON statement which names in the following 
order: 



a, number of words per record (must be a multiple 
of 10) - INTEGER VARIABLE 

b. maximum number of records - INTEGER VARIABLE 



c , number of the first record to be written or 
read - INTEGER VARIABLE 



d, number of the last record to be written or 
read - INTEGER VARIABLE 

e, buffer area (core storage area for data involved 
in the transfer) - INTEGER or REAL VARIABLE 
named array, or combination of both, e.g. COMMON 
N¥R, MNR, NPR, NLR, BUP(80) or COMMON N¥R, MNR, 
NPR, NLR, A,I, J,B,C,D(4),K 

In the second example A,I,J ,B,C,'D{h) ,K con- 
stitute the buffer area. Values for items 
(a) through (d) must be specified in the pro- 
gram before the subroutine is entered. 
In c4d, variables dimensioned in a COMMON 
statement must not appear in a DIMENSION 
statement also. 



The MOVE routine is called through an arithmetic 
statement, e.g. N=M0VE(I), where I may be given 
the values +1, 0,-1 

I = +1 causes a core-to-disk transfer or write . 

1=0 causes the disk read/write arm to be 
positioned over the correct cylinder, 

I = -1 causes a disk-to-core transfer or read , 

e.g. COMMON NWORD, MAXNR, WIST, NLAST, BUFFA(200) 



MAXNR = 2000 
NWORD = 20 



NIST = 1997 
NLAST = 2000 
K = MOVE (-1) 
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These statements will transfer the four two-sector 
records 1997, 1998, 1999^ 2000 from the disk into 
BUFFA(l) through BUFFA(8o). K is a dummy variable 
and is set to zero. 

4. <. first record number last record number^maximum 
number of records. 

5. Each transfer of data (and therefore the size of the 
buffer area) is limited to 2000 words. 

6. The space limitation on the disk must not be exceeded. 



Error Messages : The error message TASK indicates that one of the 
above limitations has been violated or that the wrong 
disk pack is mounted on the I3II. The error message 
DISK indicates a computer malfunction during a MOVE 
attempt. After the error message is printed the 
executive is called from the disk. 

Output : All the output from MOVE is in the buffer area defined 

by COMMON. The statement K = MOVE (I) sets K to zero. 

Disk Storage Map : Data is stored on the disk at sectors 6OOOO through 
59999 + (maximum number of records) • (number of words per 
record )/lO, The first record is stored in the highest 
numbered sector. In the above example the first record 
is stored in sectors 63998 and 63999. Note that if the 
system had been loaded to store program starting below 
64000, the statements in the example would result in a 
TASK error because rule 6 would have been violated. 



Control Cards 



The format for control cards is as follows: 



Column 1 
Columns 2-5 

Column 6 
Columns 7-11 



Four characters, left justified, 
specifying the control function 
required by the executive. 

Blank 

Up to five characters, left Justi- 
fied, specifying the name of the 
program for CODE, HOLD, RUN, or 
CUT. The number of subroutines 
in two left justified digits for 
SRS. 



Column 12 



Blank 
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Columns 13-80 Comments, for example , project 

number, programmer's name, etc, 
followed by a record mark. 

The system permits the use of the following control cards: 

*CODE - causes the subsequent c4d source program to be 

checked for errors and compiled if no errors are 
found. The source program is normally followed 
immediately by either *RUN or *HOLD. 

^HOLD - assigns permanent disk storage to the specified 

program if it has just been compiled. Also causes 
the index routine to provide am index. 

*RUN - causes execution of the specified object program. 
*RUN is usually followed by data cards . 

*CUT - deletes the specified object program from disk 
storage. 

*DISK - provides a listing on the typewriter or on the 
printer. The listing contains 

1. the nimber of programs currently assigned 
permanent disk storage 

2. the number of the next available sector for 
program storage 

3. the names of all the programs currently on 
disk 

*DATE - stores the contents of Columns 7-80 of the *DATE 
card to be stored. This area is intended for a 
date, shift, AM, PM, or other message. The mes- 
sage is then printed or punched after the control 
card message for each subsequent Job, 

*SRS - causes loading of the relocatable subroutine set 
(see Appendix 2) 

*OUT - reads the next card (which should be the first 
card of a card program) and branches to 00000. 



to 
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Debugglng Under C4d 

We will now study, the output of a program called ERROR 
that was written to illustrate the use of program output in de- 
. bugging. 



SiCODE FPROR 
DECEMBER 16, 1965 AM 
07500 READ3,I,X,Y 
07560 GOTO (1,2), I 

07648 1 CALLSEGMENTIO 

07660 2 CALLSEGMEMT20 

07672 3 FORMAT! I5,2F10.5) 

07704 SEGMENT10,20 

BEGIlMSEGNfENTlO 
07718 11 X = SQRTt-(X) 

07742 ENOSEG^IENTIO 

BEGINSEGMENT20 
07718 21 X=SQRTF(Y) 

077^^2 ENDSEGMENT20 

END 

39999 COS 39989 COSF 

39959 EX? 39949 EXPF 

39919 SQRT 39909 SQRTF 

3987' MABS 39869 NAEIF 

39339 ■■'^H 39829 DRHF 

39799 MOVE 39789 MOVEF 

39"-'"-J SAVE 39749 SAVEF 

39719 NFIL 39709 NFILF 

39679 X 39669 Y 

39629 Sv-, 0010 39609 SG 0020 

39579 SM 0021 
aRUN ERROR 

DECEMBER 16, 1965 AM 
SEGMENT SYMTAB ADDR 3960 NSQR,NEXT INSTR-*^ 
3 9930 M 1 535647— -:=M5675746- + M5675700-4=r.2495546-i02495500-+M3566246-:!=M3566200- + 

3 98c;0 N5414262-+N5414262-=!--M142 6246-+M1426200-+N11000')00-M9-7770=t=-±M153 5647-+ 

397.-;-. N4566545-+N5575946-+N5 575900-+H4594B46-+M4594800-+M163415 5— +'M1634155- + 

3 9720 N349555 2-+N3495552-:^024^D545- + 0241u54 5-+N45 6444 6-+N45 64400-*^'4566 54 5- + 

3 96=;0 M907648000N 11000000 — 000000000-000000002 76 76000M 546495 3-=i=N546'i-9 53- + 

3 95 80 -000000 — =1=M9077 18000 000 5000 7718000 0004000 77 18000Mg07660000 

3 95?.0 -0000O00^+-O000O00+*-0000O00*t-000000Ot=)=-O00O00C++-0000OGR99M9077 18000 



39979 


SIN 




39969 


SINF 




39939 


A LOG 




39929 


ALOGF 




39899 


ABS 




39889 


ABSF 




39859 


A TAN 




39849 


ATANF 




39819 


NPR 




39809 


NPRF 




39779 


.MOD 




39769 


MODF 




39739 


LINK 




39729 


LF'IKF 




39699 


FM 


0003 


39689 


I 




39659 


SN 


0001 


39649 


SN 


0002 


39599 


SN 


0011 


39589 




000 




0773 











The output consists of the following items: 

1, A referenced source statement listing 

2, A referenced symbol table 

3, An error message indicating an attempt to take 

the square root of a negative number 

4 , A symbol table dump 

In addition, the operator has recorded the address 07730 from the . IR2 
register. This address contains the next instruction in the users 
program that would have been executed following the error. 
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The referenced source statements show that both state- 
ment 11 and statement 21 have been translated into instructions 
which include the instruction at 7730. Furthermorej both these 
statements involve the square root routine. Isolation of the 
offending statement is accomplished in this way. The error mes- 
sage draws attention to a symbol table address of 3960. This is 
the first four digits of the symbol table address 39609. The 
referenced source statement listing shows that this address cor- 
responds to segment 20. Since statement 21 is in segment 20, it 
is the offending statement. Also, we notice that the argument 
of the square root in statement 21 is Y. The symbol table shows 
that Y is stored at 39669 (actually 39660 through 39669). The 
symbol table dump shows that this storage area contains N11000000-. 
The N represents a flagged 5 and the - a flagged zero. The flag 
at the leftmost digit of this field is normal but the flag at the_ 
rightmost digit indicates that Y is negative. In fact, 5110000000 
represents -0.1 x 10^ or -1.0. The same number in locations 39900 
through 39909_is the actual argument conveyed to the subroutine . 
The number ¥907770 immediately following is an instruction to 
branch to location 07770 where the square root subroutine has been 
stored for this program. Note also that fields in the symbol 
table dump that end in a record mark have not been given a numerical 
value. That is, if they are variables, they were still undefined 
when the error was detected. 

Alphabetic characters in dumped output may be inter- 
preted as follows : 



J 


1 


K 


2 


L 


3 


M 




N 


3 





F 


P 


7 


Q 


B 


R 


9 
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Check Stops 

There are certain programming errors which are riot 
detected by cAd and which cause the computer to stop functioning 
with a CHECK STOP light on. The error responsible is probably 
one of the following: 

1. An array element computed when the subscript 
is out of the dimensioned range. 

2. The subscript of an array element is undefined. 

3. A GO TO or IP statement in one segment references 
a statement In another segment, or an EXECUTE 
PROCEDURE references a procedure in another 
segment . 

4. Branch to a FORMAT statement. 

5. An Integer variable is raised to a power by the 
use of the **operator . This operator may only 
be used to raise a real variable to a power. 

6. An error in the argument of a subroutine. 

To help debugging after a check stop the operator should 
recover the contents of IR2 if possible and then manually branch 
to 065 76- This will provide a symbol table dump as if an undefined 
variable had been detected. 

7. An invalid transfer of data from disk to core. 
Nearly all transfers from disk to core are 
verified and, if incorrect will be automatically 
corrected by the system when the PARITY and l/O 
switches are set to program. In a few cases, 

a CHECK STOP will result from an invalid disk to 
core transfer. Should the RD CHK light be ON 
on the occurrence of a CHECK STOP, RESET, RELEASE, 
and START will permit the continuing of the 
program. 



9 
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OPERATING INSTRUCTIONS FOR C4d 
Loading the System onto Disk 

1. Number the c4d disk pack(s) 60000 through 79999. 

2. Place system deck In read hopper. 

3. Set PARITY and I/O switches to STOP, DISK, and 
ARITHMETIC switches to PROGRAM. ** 

4. Press RESET and LOAD keys. 

5. You will be requested to enter the following Infor- 
mation through the typewriter: 

a. The disk drive numbers for the system drive 
and the data drive. For a single drive 
system, enter the same number twice. 

b. A digit specifying that this Is an Initial or 
subsequent load. CAUTION — an Initial load 
erases the table that Indexes the user's 
programs which are stored on the disk file. 

c. The starting sector number for disk program 
storage.* 

6. The loader punches out a c4d COLD START card. 

7. When all cards have been read, the system Is 
loaded and ready to accept Jobs headed by control 
cards . 



* 64000 might be a reasonable starting sector number. This would 
allow for a maximum of 2000 source cards per program and a 
maximum of 40000 stored variables when using the MOVE subroutine. 
Such designation would allocate 15125 sectors for permanent program 
storage. For compilation of larger programs or for more disk data 
storage area, the starting sector number must be Increased by two 
per source card or by one per ten additional variables to be 
stored. The sectors allocated for permanent program storage 
will be correspondingly reduced. This Is only requested upon 
Initial load of a single drive system. 

** PARITY and l/O switches may be set to PROGRAM for the automatic 
correction of any transfer between disk and core which initially 
proves to be invalid. 
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Cold Start 

The executive may be called from the disk at any time 
by the following procedure: 

1. Place c4d COLD START CARD In read hopper 

2. Press RESET & LOAD 

The same effect may be achieved as follows: 

1. Press RESET & INSERT 

2. Enter by typewriter the following 

3400044OO7013200000OO00036000440070249129820n79800129O01O0R-S 
where n Is the system disk drive code (0,1,3,5,7) 
Switch Settings 

551 ON halts the computer after the header card is punched 
for each new Job. This permits removal of the cards punched during 
the previous Job. Alternatively a different colored card placed 
behind the cards In the l622 punched card stacker at halt time can 
be used to separate output decks at some subsequent time. 

552 should be ON for the use of the lkk3 printer. If 
the 1443 printer falls, SS2 OFF will enable c4d to operate while 
the 1443 Is repaired. For an Installation without a 1443, SS2 
should always be OFF. 

553 should be left ON when the operator Is In the computer 
room. It should be left OFF when the l620 Is running unattended. 

SS3 ON causes a halt after an error message at run time. This permits 
recovery of the address In IR2 to direct the programmer's attention 
to the FORTRAN statement being executed. START then causes a symbol 
table dump on cards or printer. After this dump, the executive Is 
automatically called. SS3 ON also causes halt after a PAUSE state- 
ment, START then allows the program execution to continue. SS3 
OFF Inhibits the halts and the symbol table dump and causes the 
executive to be called Immediately following a run-time error or 
a PAUSE statement, 

554 ON causes tracing to be executed on cards or printer 
depending on the setting of SS2, SS4 OFF inhibits the trace. 
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APPENDIX 1 



BEGIN PROCEDURE 5000 



C USES JORDAN TECHNIQUE WITH MAXIMUM PIVOTAL ELEMENTS TO SOLVE 

C -NSO- EQUATIONS WITH AUGMENTED COEFFICIENT MATRIX -CSO- 

C IF THE EQUATIONS HAVE NO UNIQUE SOLUTION THE ERROR MESSAGE 

C SOLVE IS PRINTED AND -NOSOL- IS SET TO ZERO OTHERWISE 

C -NOSOL- IS ONE AND THE SOLUTION VECTOR IS STORED IN THE 

C FIRST COLUMN OF -CSO- MAIN PROGRAM MUST DIMENSION 

C CS0(NS0,NS0+1) AND NAHE(NSO) 



NSOP = NSO + 1 
NOSOL = i 

00 5001 JSO = IjNSO 
5001 NAME(JSO) = 

DO 5015 KSO = 1,NS0 
CMAX = 0. 

DO 5004 JSO = 1,NS0 
IF(NAME( JSO) )5004, C,5004 
TSO = CSO(KSO,JSO) 

IF (ABSF(TSO)-ABSF{ CMAX )) 5004, 5004, C. 
CMAX = TSO 
JHAX = JSO 
5004 CONTINUE 

IF{CMAX)5007j C,5007 
NOSOL = 
PRINT 5006 
RETURN 5000 

5006 FORMAT {5HS0LVE) 

5007 NAME(JMAX) = KSO 

DO 5010 JSO = 1,NS0P 

IF(JSO-NSOP) C,5009, C 

IF(NAME( JSO) ) 5010, 5009^5010 
50(59 CSO(KSO,JSO) = CSO ( KSO, JSO ) /CMAX 
5010 CONTINUE 

D05015 ISO = 1,NS0 

IFfiSO-KSO) C,5015,C 

TSO = CSO( ISO,JMAX) 

IF(TSO) C,5015,C 

DO 5015 JSO = 1,NS0P 

IF{JSO-NSOP) G,5014,C 

IF (NAME (JSO)) 501 5, 5014, 5015 

5014 CSO{ISO,JSO) = CSO{ ISO,JSO)-TSO*CSO{KSO,JSO) 

5015 CONTINUE 

DO 5016 KSO = 1,NS0 
LSO = NAME (KSO) 

5016 CS0(KS0,1)=CS0{LS0,NS0P) 
END PROCEDURE 5000 
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BEGIN PROCEDURE 5100 
C INVERTS MATRIX -YNV- OF ORDER -NNV- IF -YNV- IS SINGULAR THE 

r, F;RROR MESSAGE INVERT IS PRINTED AND THE VARIABLE -NOSOL- IS 

C SET TO :ER0 otherwise -NOSOL- IS SET TO ONE AND THE INVERSE 

C IS STDRED IN -YNV- MAIN PROGRAM KUST DIMENSION CNV(NNV) 

C ,'NV (NNV,NNV) AND NAME(NNV) 

N0S0L=1 

DO 5101 INV=1,NNV 
5101 NAME( INV) = ''NV 

DO 5113 I\V=1,NNV 

CMAX=0. 

JNV=INV 

DO 5103 KNV=INV,NNV 

IP {ABSF(CN'AX)-ABSF(YNV(INV,KNV) ) ) C, 5103, 5103 
JNV=KNV 

CMAX=YKV ( INV,KNV) 
5103 CONTINUE 

IF (CMAX) 5106, r,,5106 
PRINT 5105 
NOSOL=0 
RETURN 5100 

5105 FORMAT (6HINVERT) 

5106 IF (INV-JNV) C,5109,C 
KNV=NAM,:( INV) 

NAME( INV)=NAi^E( JNV) 

NAME ( JNV )=KNV 

DO 5108 LNV=1,NNV 

TNV=:YNV(LNV,iNV) 

YNVCLNV, INV)=YNV(LNV, JNV) 

5108 YNV(LNV,JNV)=TNV 

5109 YNV( INV, INV)=1. 
DO 5110 JNV=1,NNV 

5110 YNV( INV,JNV )=YNV( I NV , JNV ) /CMAX 
DO 5113 JNV=1,NNV 

IF (INV-JNV) C,5I13,C 
TNV=YNV( JNV,INV) 
YNV( JNV, INV;=0. 
DO 5112 KNV= ;-. ,NNV 

5112 YNV( JNV,KNV ■ --YN V( JNV , KNV ) -TNV*YNV ( INV,KNV) 

5113 CONTINUL- 

DO 5119 MNV=^1,NNV 
IF(NAME(MNV)-Mr;V) C,5n9,C 

5114 DO 5115 JNV==l,'vNV 

5115 CNV(JNv)=YNV!MNV,jr'.V) 
JJNV=MNV+1 

DO 5116 JNV=JJNV,NNV 

IP (NAME (JNV)-MNV) 5116,5117,5116 

5116 CONTINUE 

5117 NAME( JNV)=NAME(MNV) 
DO 5113 KNV=1,NNV 
YNV(MNV,KN\')^YNV( JNV,KNV) 

5118 YNV ( JNV ,KNV )=CNV(KNV) 

5119 NAME(MNV)=MNV 

END PROCEDURE 5100 
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BEGIN PROCEDURE 5200 



C MULTIPLIES MATRIX -BMULT- BY MATRIX -CMULT- AND STORES PRODUCT 
C IN -AMULT-. SIZE OF BMULT IS -MMULT-*-KMULT- AND SIZE OF 

C CMULT IS -KMULT-*NMULT-. MAIN PROGRAM MUST DEFINE VALUES 

C OF -MMULT-,-KMULT-,-NHULT-, AND DIMENSION -AMULT-, 

C -8HULT-t -CMULT- 



D05202 IHULT=1,MMULT 
DOS 202 JMULT=1,NMULT 
SHULT=0. 

D05201 MULT=ItKMULT 

5201 SHULT=SMULT+BMULT { I MULT , MULT )*CMULT ( MULT , JMULT ) 

5202 AMULTdMULT, JMULT )=SMULT 
END PROCEDURE 5200 

BEGIN PROCEDURE 6000 
C GENERATES A STANDARD NORMAL DEVIATE -SND- 

SUSNO=0 

DO 6001 J=lfl2 
SNDX=NPRF( IBEG) 
6001 SUSND=SUSND+SNDX 

SNO = 0.00001*SUSND - 5.99994 
END PROCEDURE 6000 

BEGIN PROCEDURE 6100 
C GENERATES A VALUE -NERL- FROM AN ERLANG DISTRIBUTION 

C OF ORDER -KERL- AND MEAN VALUE -TBAR- 

XKERL=KERL 

PROD =1. 

DO 6101 JERL=1,KERL 
XR=NPR{NRI ) 
XR = 0.00001*(XR+0.5) 
6101 PROD=PROD*XR 

NERL= -(TBAR/XKERL)*ALOG( PROD) 
END PROCEDURE 6100 

BEGIN PROCEDURE 6200 
C CONVERTS A TIME IN SECONDS -NSEC- TO DAYS, HOURS, AND MINUTES 

NDAY = NSEC/86400 
NHR = M0D(l)/3600 
NMIN = M0D(l)/60 
IF{MOD( 1)-30)6201,6201,C 
• NMIN = NMIN+1 
6201 CONTINUE 

END PROCEDURE 6200 



o 
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APFENDIX 2 
Adding New Subroutines to C4d 

Up to M subroutines may be included in g4d if they are 
short enough to fit in 150 disk sectors (average length less than 
^06 digits). No individual subroutine may be longer than ^998 
digits. Additional subroutines may be added to the system if 
certain rules are followed. CAUTION: Do not remove subroutines 
after the initial load as this will alter the transfer points for 
all subsequent subroutines. The rules for adding a new subroutine 
are as follows : 

1. Define the origin of the subroutine at 5OOO. 

2. All Instructions, except for the last Instruction, 
must occupy a full twelve digits, i.e. DORG *-n, B7, BB2 instruc- 
tions are not permitted before the last instruction. Symbol and 
constant definition must follow the instructions to ensure that 
instructions start in 5000, 5012, 5024, etc. The spare digits in 
branch, clear flag and similar instructions are, of course, avail- 
able for data storage. 

3. Flag the first or second operation code digits cor- 
responding to those P or Q addresses which must be modified by the 
relocator . 

4. Do not use the halt instruction. Upon error detec- 
tion the subroutine should transmit the address of the leftmost 
digit of its error message to ERMA and branch to ERR. These 
addresses are in the Class A subroutines which will print the 
error message, dump the symbol table, and call the executive. 

5. Only define group marks within a subroutine as the 
last digit . 

6. The field address of the argument may be found by 
subtracting '20 from the field address of the argument of the last 
subroutine already in the system. The system, as provided, has 
the following subroutines : 



Name 


Address of Argiiment 


COS 


19909 


SIN 


19969 


EXP 


19949 


ALOCt 


19929 


SQRT 


19909 


ABS 


19889 


NABS 


19869 


ATAN 


19849 


DRH 


19829 


NPR 


19809 


MOVE 


19789 
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Name 

MOD 

SAVE 

LINK 

NFIL 

NUPL 



Address of Argument 

19769 
19749 
19729 
19709 



These addresses are adjusted at load time for core size greater 
than 20K. 

7. Test the subroutine argument for a record mark in 
the rightmost digit. If there Is a record mark, the argument Is 
undefined. A branch to UDV In the Class A subroutines will 
provide the error message. 

8. The output value of the function should be stored 

as a ten digit Integer or as a real value in excess -fifty floating 
point form in the floating point accumulator. This occupies core 
positions 00051 through OOO6O. 

9. Use Data SPS, APIT SPS, SPS III, or I620/171O SPS 
to assemble into a condensed object deck. Discard the first two 
and the last seven cards of this deck. 

10. Add a header card with the following format: 



Colximn 1 
Columns 2-5 



Column 6 
Columns 7-10 

Columns 11-14 
Columns I5-I8 
Columns 19-22 



The name of the subroutine, left 
Justified. The initial letter 
determines a, real or integer value 
for the function and its argument. 
The name must be from two to four 
digits in length and must not end 
In F. 

Blank 

The total number of digits in the 
instructions 

The total number of digits for in- 
structions and data. If this is an 
odd number add one to make it even. 

The number of cards in the subroutine 
object deck excluding header and 
trailer cards. 

The number of cards In the object deck 
excluding header but including trailer 
cards . 



-so- 
li. Add a trailer card that contains, in successive five 
digit fields, th'.^ unrelocated addresses of any digit that must be 
modified for coi-o size. Follov/ the last of those fields with a 
record martc. Ur.o additional trailer cardc if more than l^i- such 
modifications aro n«i:.]od. 

12. A subroutine may have two entry points (e.g. sine- 
cosine. Refer to section on "Subroutines With Two Entry Points") 

13. Add the new subroutine to the back of the subroutine 
deck. Do not disturb the order of the previous subroutines. 

14. Place the control card *SRSnn as a header card for 
the new subroutine deck (discard the old *SRS card). The value 
of nn is the number of subroutines in the nevi deck, 

15. Load the deck under the control of the executive. 
Error messages that may occur at subroutine load time (*SRS) are 
as follows : 



WRONG ENTRY - second entry point of subroutine 
v/lth two entry points specified to be outside 
the range of subroutine, 

1ST SUB WRONG - first subroutine $ card contains 
blanks or zeroes in columns ll-l4. 

TOO MArry subs - SRSnn has nn greater than 40 , 

SUB TOO BIG - number in columns 11-14 of $ card 
greater than 4998. 

SUB CYLINDER EXCEEDED - total length of all sub- 
routines exceeds 15,000 digits. 

SUB ODD LENGTH - number in columns ll-l4 of $ 
card is not an even number. 

HDWR ERR EXEC - hardware error encountered with 
core-disk transfer while loading subroutines. 

$ CARD NOT IN PLACE - nn of SRSnn card or columns 
15-18 or 19-22 of a $ card incorrectly specified. 



SUB NAME ERR 
name . 



less than tvro-diglt subroutine 



A check stop will result if the number of subroutine cards 
specified on the $ card is incorrect. 



a 
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Sub routines With Two Entry Points 

Two functions with different names can be generated by 
a subroutine with two entry points . The first function results 
from entering the subroutine at 05OOO. Assemble the subroutine 
deck under the name of the first function and follow this deck 
with a dummy $ card containing the name of the other function. 
Columns 7-10 of this $ card contain the address of the abnormal 
entry relative to 5OOO. Columns 11-14 must be blank or zero 
signifying a special type of subroutine. No cards need follow 
the dummy card. 

Example: COS has entry at 05000, SIN has entry at 05036 and the 
joint subroutine generating these functions is set up 
as follows: 

$ COS o64407i8ooi4ooi5 

l4 object program cards 

1 trailer card 
$ SIN 0036 



o 



-32- 



TABLE I 



C4D ERROR MESSAGES AT CODE TIME 



FHR ni OPEN SEGMENT OR PROCEDURE 

III C2 Continuation error or previous statement ends in a comma 

ERR 03 DUPLICATE STATEMENT, SEGMENT OR PROCEDURE LABEL 

ERR 04 SEGMENT NOT DECLARED OR NOT CALLED 

ERR 05 PARENTHESIS ERROR 

ERR 06 GO TO WRITTEN INCORRECTLY 

ERR 07 IMPROPERLY NESTED DO LOOPS 

ERR 08 DO LOOP ENDS WITH A TRANSFER STATEMENT 

ERR 09 END OF A DO LOOP IS A PREVIOUS STATEMENT LABEL 

ERR 10 INVALID DO STATEMENT 

ERR 11 ERROR IN A NUMERIC CONSTANT 

ERR 12 ERROR IN A VARIABLE NAME 

FRR 13 SUBSCRIPTING ERROR 

ERR U NON-NUMERIC SUBSCRIPT OR MORE THAN 2 SUBSCRIPTS 

IN A DIMENSION OR COMMON 

ERR 15 ERROR IN SEGMENT OR PROCEDURE LABEL 

ERR 16 TRANSFER STATEMENT TRANSFERS TO ITSELF 

\Z Is Jo"flc«TlS"SrI D^mOEX CR »R.HETER WITHIN . DO LOOP 

ERR 19 FORMAT OF TRACE, IF SPEC I F I EO , NOT E OR F. 

ERR 20 STATEMENT IS UNRECOGNIZABLE 

FRR 21 I/O LIST MISSING OR INCORRECTLY WRITTEN 

III 22 COMMON STATEMENT(S) NOT FIRST STATEMENT(S) IN PROGRAM 

III 23 INVALID FORMAT STATEMENT LABEL IN AN I/O STATEMENT 

ERR 24 NON-NUMERIC SUBSCRIPT IN A DATA STATEMENT 

III 25 LABELED STATEMENT FOLLOWS END SEGMENT STATEMENT 

ERR 26 COMMA MISSING IN AN I/O STATEMENT 

COD 57 <;iiR<:rRIPTFD VARIABLE NOT DIMENSIONED 

ERR 28 INDEX^JgIrRoS IN I/O STATEMENT, OR IMPLIED DO WITHIN MCRE THAN 

ONE LEVEL OF PARENTHESIS 

ERR 29 INVALID FORMAT STATEMENT 

ERR 30 INCORRECTLY WRITTEN ARITHMETIC STATEMENT 

III \\ ?iSror?fB?E^fxJ?l^lDTR NESTED 00 LOOPS 

II ^JjLER;fH%fErD'lN'rDATA STATEMENT MORE THAN 5 CHARACTERS 
IrR 35 ERROR IN DATA STATEMENT OR DATA STATEMENT(S) NOT PLACED 

IMMEDIATELY BEFORE END STATEMENT 
ERR 36 ERROR IN STATEMENT LABEL(S) IN AN IF STATEMENT OR 

INVALID EXPRESSION WITHIN THE PARENTHESIS 

IfR II rA^?k^?E°iS^PElRf HS^E^'Sro^jrfJ^'oMMOH AND/OR DIMENSION STATEMENT 

ERR 39 UNLABELED STATEMENT FOLLOWING A TRANSFER STATEMENT 

ERR 40 SUBROUTINE NAME USED AS A VARIABLE NAME 

ERR 41 FORMAT MULTIPLIER GREATER THAN 99 
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TABLE II 



SYSTEM MESSAGES AT RUN TIME 



STOP mm 

END 



— EXECUTION OF STOP NNNN 

— EXECUTION OF END, END SEGMENT, OR SEGMENT 



SEGMENT 


SYMTAB 


ADDR 


AAAA 


UNDV 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


OFLO 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


UFLO 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


ERIO 




SEGMENT 


SYMTAB 


ADOR 


AAAA 


IXER 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


TRIG 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


NSQR 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


ERLN 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


TASK 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


DISK 




SEGMENT 


SYMTAB 


ADDR 


AAAA 


SAVE 




SEGMENT 


SYMTAB 


ADOR 


AAAA 


NFIL 





UNDEFINED VARIABLE 

RESULT OF ARITHMETIC OPERATION GREATER IN 
MAGNITUDE THAN ID TO THE POWER +50 
THIS INCLUDES TAKING THE LOGARITHM OF ZERO 
ALSO RESULTS FROM ATTEMPT TO FIX A NUMBER 
GREATER THAN 99999999.0 IN MAGNITUDE 

RESULT OF ARITHMETIC OPERATION LESS IN 
MAGNITUDE THAN 10 TO THE POWER -50 

INPUT DATA ERROR 

INDEX OUT OF RANGE IN COMPUTED GO TO 
ARGUMENT OF SIN OR COS IS 10000000 OR GREATER 
NEGATIVE ARGUMENT FOR SORT SUBROUTINE 
NEGATIVE ARGUMENT FOR ALOG SUBROUTINE 
VIOLATION OF RESTRICTIONS ON USE OF MOVE 
1311 HARDWARE MALFUNCTION IN MOVE SUBROUTINE 
ATTEMPT TO RECOVER DATA BEFORE ANY HAS 

BEEN SAVED 
ARGUMENT FOR NFIL IS OUT OF RANGE 



NOTE 



AAAA REFERS TO FIRST FOUR DIGITS OF THE SYMBOL TABLE ADDRESS 



© 
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TABLE III 
MISCELLANEOUS SYSTEM MESSAGES 



EXECUTIVE ROUTINE MESSAGES 



HDWR ERR EXEC 



INVALID * CARD 
PROGRAM WAS ON FILE 
PROGRAM NOT ON FILE 
DISK TABLE FULL 
OVERLAP 



EXECUTIVE ROUTINE READ INCORRECTLY FROM DISK FILE 
OR INFORMATION WRITTEN INCORRECTLY ON THE FILE 
BY THE EXECUTIVE (THIS IS A COMPUTER MALFUNCTION) 

SELF EXPLANATORY 

TRYING TO CODE OR HOLD PROGRAMS WITH THE SAME NAME 
TRYING TO RUN OR CUT A NON-EXISTENT PROGRAM 
NO ROOM TO INDEX ANY NEW PROGRAMS 
NOT ENOUGH CORE FOR PROGRAM, SYMBOL TABLE, 
AND SUBROUTINES 



RELOAD CAD- 
INITIAL LOAD — DISK TABLE DESTROYED BY 1311 DISK MALFUNCTION 
CUT HDWR ERROR- 
PROGRAMS ON FILE 
FOLLOW 
RENUMBER SYSTEM 

DRIVE 



ONLY PART OF DISK TABLE DESTROYED 

DISK SECTOR ADDRESS NOT FOUND IN NINE SEEKS 



STATEMENT SCAN ROUTINE MESSAGES 



HDWR ERR SCAN — SCAN ROUTINE READ INCORRECTLY FROM THE DISK FILE 

OR INFORMATION WRITTEN INCORRECTLY ON THE FILE 
BY THE SCAN ROUTINE-THIS IS A COMPUTER MALFUNCTION 

NO END CARD — SELF EXPLANATORY 



DIAGNOSTIC ROUTINE MESSAGES 



HDWR ERR OIAG ~ DIAGNOSTICS READ INCORRECTLY FROM THE DISK FILE 

(THIS IS A COMPUTER MALFUNCTION) 

UNDEF LABLS — FOLLOWED BY LIST OF STATEMENT, SEGMENT, AND 

PROCEDURE LABELS REFERENCED BUT NOT DEFINED IN 
THE USERS PROGRAM 

UNCEF SM8LS — FOLLOWED BY LIST OF VARIABLES REFERENCED IN THE 

USERS PROGRAM BUT NEVER GIVEN A NUMERICAL VALUE 



COMPILER ROUTINE MESSAGES 



HDWR ERR COMP 



SYMTAB FULL 
OVERLAP 

FORMAT TOO LONG 
NO ROOM ON FILE 



COMPILER READ INCORRECTLY FROM THE DISK FILE 
OR INFORMATION WRITTEN INCORRECTLY ON THE FILE 
BY THE COMPILER (THIS IS A COMPUTER MALFUNCTION) 

PROGRAM IN ITS PRESENT FORM TOO LARGE FOR COMPUTER 

PROGRAM IN ITS PRESENT FORM TOO LARGE FOR COMPUTER 

SELF EXPLANATORY 

SELF EXPLANATORY 
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TABLE III (CONTINUED) 



SUBJECT INDEX 



MISCELLANEOUS SYSTEM MESSAGES 



LABEL INDEX ROUTINE MESSAGES 

HDWR ERR LAB INDX — LABEL INDEXER READ INCORRECTLY FROM THE DISK FILE 

(THIS IS A COMPUTER MALFUNCTION) 

NO INDEX-*HOLD SHOULD 
FOLLOW *CODE — HOLD CARD DID NOT IMMEDIATELY FOLLOW SOURCE PROGRAM 



ARRAYS 4 

CHECK STOPS 22 

COLD START ......24 

CONTROL CARDS 19 

*CODE.... 19 

*CUT 19 

*DATE 19 

*DISK 19 

*HOLO.. 19 

*QUT 19 

*RUN 19 

*SRS 19 

DATA STORAGE ON DISK. ..16 
DEBUGGING UNDER CAD. ...20 

ERROR MESSAGES 32-34 

AT CODE TIME.... 32 

AT RUN TIME ....33 

MISCELLANEOUS 34,35 

EXPONENTIATION!**) 8 

FLOATING POINT 

ARITHMETIC 3 

FORMAT 13-14 

A TYPE .14 

E TYPE......... 14 

F TYPE.....O..,, 14 

H TYPE.oo.. ol4 

I TYPE...... 13 

X TYPE ..-.14 

INPUT/OUTPUT LISTS 11 

INTEGER ARITHMETIC 3 

INTEGERS. ,...o.o ..3 

LABELS.. 7 

LOADING C4D .......23 

MATRICES 0...0...4 

OPERATING 

INSTRUCT IONS... 23, 24 

PROCEDURES 16 

ERLANG SAMPLING 27 

LINEAR EQUATIONS 25 

MATRIX INVERSION. ....26 

MATRIX MULTIPLY 27 

NORMAL DEVIATES. .....27 

TIME CONVERSION 27 

REAL VARIABLES... 3 

SEGMENTATION........... 14 

STATEMENT CARD FORMAT...? 



STATEMENTS 8 

ARITHMETIC 8 

BEGIN PROCEDURE 16 

BEGIN SEGMENT 16 

BEGIN TRACE 10 

CALL SEGMENT 15 

COMMON 12,13 

CONTROL 12 

DATA 15 

END PROCEDURE 16 

END SEGMENT..., 15 

END TRACE 10 

END 10 

EXECUTE PROCEDURE. ...16 

FORMAT 13-14 

IF 9 

PAUSE .10 

PRINT 12 

PUNCH 12 

READ 11 

REREAD 11 

RETURN 16 

SEGMENT 15 

STOP 10 

TYPE... 11 

SUBROUTINES 4,28-31 

ABS .o..,5 

ALOG .....4 

ATAN .....5 

COS.... .....4 

ORH.. .5 

EXP... , 4 

LINK... 6 

MOO ....5 

MOVE 5,16-18 

NABS.. 5 

NFIL .6 

NPR.. 5 

SAVE .....6 

SIN 4 

SORT 4 

SWITCH SETTINGS 24 

SYMBOL TABLE DUMP. 20 

TRACE MODE 10 

VARIABLES .3 

VECTORS ..4 
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C A- U SYSTEM M A M U A L 
INTRODUCTION 

C4.0 CONTAINS NO RESIDENT EXECUTIVE. EACH SYSTEM ROUTINE CALLS INTO 
CORE THE NEXT APPROPRIATE ROUTINE TQ ACCOMPLISH THE GIVEN JOB. SINCE 
CERTAIN INFORMATION MUST BE TRANSMITTED FROM ONE ROUTINE TO ANOTHER, 
CERTAIN CORE LOCATIONS ARE SET ASIDE FOR THIS PURPOSE. AT COMPILE TIME, 
INFORMATION IS ALSO STORED IN THE WORKING STORAGE AREA ON DISK. 



SYSTEM INFORMATION STORED IN CORE 

THE MEMORY SIZE (1,3,5), SYSTEM DRIVE CODE (0,1,3,5,7) AND DATA 
DRIVE CODE (0,L,3,5,7) ARE DETERMINED BY THE LOADER I N I T I AL I Z AT I Olv AND 
STORED IN CORE LOCATIONS 400,401,402 RESPECTIVELY WITH FLAGS. FOR A SIlvGLb 
DRIVE SYSTEM THE TWO DRIVE COOES ARE THE SAME. CORE LOCATION 403 CONTAINS A 
GROUP liARK. THESE PARAMETERS REMAIN IN 400-403 AND ARE USED FOR 
INITIALIZATION BY ALL OTHER. ROUT INES. 

THE VARIABLE -NEXT- IS I l^J CUKE POSITIONS 566-570 DURING ALL PHASES OF 
THE «CODE PROCESS. -NEXT- DEFINES THE NEXT AVAILABLE SECTOR FOR OSER 
PROGRAh STORAGE. IT IS UPDATED BY THE EXECUTIVE ROUTINE DURING =;=HULD l^iU) 
■::-CiJT AND IS SUBS bUU E i\iT L Y USED BY THE CUi-iPILER. 

PARTS OF THE SYSTEn THAT RECEIVE IwPbT FKOM THE CARu READEK ShnHH h 
COi-iMON INPUT AREA AT LOCATUiNS 404-563. IF A CCm^TkOL CARu ( I i- CuLHr,:'- ).) 
IS READ L-.Y A ROUTINt GTHh-K THaiv' TEE EXECUTIVE, THE EXECUTIVE IS Cy.LLt') 
LEAVIimG the IKPUT AKEa .ImTACT, AiMU THE CARD IS PP(^CESS-U. 

PERi'iANEMTLY ASSIGNED AREAS Ihi CORE, ThEl-, akE AS EOLLO^-,S 

uoloo - oo^yy add tables 

003()0 - 00399 i-iULT IPL ICATIOi' TAnLES 

00400 i-.EhIIRY SIZE IJlGIT 

00401 SYSTEr- DKlVh CODE 

00402 DATA DRIVE CliDE 

00403 GKIiUP ("A«K 
0U404 ■- 00563 CARD JMHUT AkEa 

U(j566 - 00570 -ivEXT- — i-^EXT aVaILakLE SECT("k 
FUk USER ER(!i,K/\i-, STORAt'iK., 



.SYSTEi- T hlEURr-iATI i.ii-.j STUKEO Ul- D ISK 

,THK;:i: kOUT I rJ E S T iv C4l) - U I AGMOS T I C I A i-' , LA4EL luUhX, Ai-D CtMPILER - 
PROCtSS SOiiRCE STATEI-iENTS. IN ORDER THaT THE CARDS n'EED ONLY BE KFAD n^ Cf-, 

A statehent scApi koutii-'E kas beeiv addeo,. ti-,e sca" ke/ujs source CakDS , 



PAGE 



COMPRESSES BLANKS, SETS UP BRANCH ADDRESSES FOR THE DIAGNOSTICIAN AND 
COMPILER, AND STORES THIS INFORMATION, TWO SECTORS PER CARD, IN THE WORKING 
STORAGE AREA ON DISK (SEE ALLOCATION OF DISK STORAGE)^ WHEN THIS 
INFORMATION IS LATER BROUGHT INTU THE INPUT AREA IT APPEARS AS FOLLOWS 



00404 
00548 



00553 
00558 



00547 
00552 

00549 

00561 

00557 
00562 
00563 



00573 - 00576 



SOURCE STATEMENT 
ADDRESS OF LAST NON-BLANK 
CHARACTER IN THE SOURCE STATEMENT 
CONTAINS A FLAG IF THIS STATEMENT 
ENDS IN A COMMA 

CONTAINS A FLAG IF SCAN FOUND A 
PARENTHESIS ERROR 

BRANCH ADDRESS FOR DIAGNOSTICIAN 
BRANCH ADDRESS FOR COMPILER 
CONTAINS A FLAGGED DIGIT IF THIS 
STATEMENT HAS A LABEL 
CARD fvUNiBER 



THE DISK TABLE (SECTORS 79804-79843) IS USED AND UPDATED BY BOTH THE 
COMPILER AND EXECUTIVE ROUTINES. (SEE EXECUTIVE RUUTIWE). 

A TABLE OF SUBROUTINE NAMES CURRENTLY IN THE SYSTEK IS STORED IJM 
SECTORS 79852-79856. THE FIRST TKO DIGITS OF THIS TABLE IS THE !\!UhBER OF 
SUBROUTINES. THE TABLE IS UPDATED BY THE EXECUTIVE WHEN AM *SRS CARD IS 
ENCOUNTERED, AND IS SUBSEQUENTLY USED bY THE DIAGNOSTICIAN AND COMPILER. 



READ-BACK CHECK 

THE READ-BACK CHECK IS USED AT ALL PLiSSIBLE TJi.ES AFTEK A TRANSFER TH 
OR FROM THE DISK. IT CANhiUT 6E USED WHEN FETCHII-G THE iir Sf^Gi- Ei-'^TED Pi.iKTlMr' 
OF A PROGRAh UK WHEiM FETCHING RELUCATAoLE S UB RDUT 1 E S SIlv'CE THPSE ARE KEAn 
WITH THE WRONG LENGTH RECORD CHECK WHICH USES THE SAi-E IriDICATOK AS THE 
READ-BACK CHECK. A HARDWARE ERROR RESULTS !>' THE iiESSaGE -Hjv-iR FRi< rrrk- 
WHERE RRRR INDICATES THE ROUTINE IN WHICH THE ERROR DCCURREI'. 

WHENEVER FEASIBLE, THE AREA OOUOO-00057 IS USED Tti READ FRdH THE DISK. 
THIS IS DONE WITH SEEK, SET FLAG, READ AND BRAi^'CH I NSTKIICT IONS . THE DISK 
CONTROL FIELD IS IN LOCATION 44. THE BRANCH ADDRESS REFERS Ti' THE RtAli- 
BACK CHECK IN THE ROUTINE BROUGHT IN. FOR DEBUGGIi'G THE SYSTEii IT IS UFTEi> 
HELPFUL TO DUMP LOCATION 44 TO DETERMINE WHICH ROUTINE l^AS Ii^'i CORE WHEN I'-t. 
ERROR OCCURRED. FOR EXAMPLE, WHEN FETCHING THE EXECUTIVE, CfiRE PGSITIO-S 
00000-00057 MIGHT READ AS FOLLOWS, 

34000440070 1320000000000 360004400 7 0249 12 982 01 798 00 12900 1 00 
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SENSE SWITCHES 



SWITCH 



ON 



OFF ROUTINES EFFECTED 



HALTS COMPUTER 
AFTER HEADER 
CARD IS PUNCHED 



NO HALT 



EXECUTIVE 



OUTPUT OM 1443 
PRINTER 



OUTPUT ON 
CARDS AND 
TYPEWRITER 



ALL ROUTINES 



HALTS COMPUTER AT NO HALT 
RUN TIME AFTER A 
PAUSE STATEMENT OR 
AN ERROR 



OBJECT 

PROGRAM 

AT RtJN TI!-1E 



TRACE GENERATED 



NO TRACE 



OBJECT 

PIUJGRAM 

AT RUN TINE 



ALLOCATION OF DISK STLiKAGE F(jK A SIi'-GLb UKIVE •SYSTL-.-i 



THE C4D DISK PaCK StCTUK i\i(li-,!^EKS kUI. FKOi-i 60U0U ThRiiUGh; 
UJV.IDtilJ IlvTU THE THkEE aRFAS LISTED BELOH-- 

1.. UATa AiMU I;UKKING STORaGF Aki:A 

2. USERS PkOGkAi-i ARE A 

3. SYSTEl-i ROUTIi\ES 

SYSTEI-: HiJUTIhiES AL'.-.AYS OCCUPY CYLlKDEkS 96 THkOUGH 9V paKT ijF 

CYLI.JUbk 95.., THE ALLOCaTIUN UF THE Rti'iAli\IMG 95+ CYLIJ-DFkS IS i Url F Km 1 1 m- ■ ) 
FOR EACH INSTALLaTIuI'.' AT SYSThn LOAD Tli-iF. NOTE TliAT THE STaTKi-,:i T SCai-' 
ROUTIimE STilRFS SUUKCt Pkul^KAh STaTEi-iEiv^TS Irj THE '.•■URK I ,■;(; STlikAi^F aKi-A FiiK 
KliCUVERY dY THt UIAGr'USTIC, CUi-iPILEk Ai^'U LAtiEL IIVDEX ROUTIr-ES., EaCH SuUkCc 
CARD RtwUIXES TWLj StCTOKS OF STORAGE. SlrCE ICO SUOkCE CAkl'S RFCUIkE UiJi: 
CYLI'vDER OF UISK STUKAGE, .-'E SUGGEST A rilMli.iUM OF 20 CYLIIvOEkS FUk rliKKIiiG 
STORAGE. DATA STOKa-GE DEPcNOS ON. THE APPLICATION EXPtCTED AT THE 
rNSTALLArilii-.:., IE,, FOR EXAi'iPLE, YOU DL-CIi.)E TO USE FORTY CYLINI.>ERS FOk i.jaT.". 
YOUK DISK WILL BE PARTI TIOimED AS FOLLOiJS — 
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CYLINDERS 00 - 39 
CYLINDERS 40 - 95+ 
CYLINDER 95 
CYLINDER 96 
CYLINDER 97 
CYLINDER 98 

CYLINDER 99 



DATA AND WORKING STORAGE 

PROGRAM STORAGE 

FORTRAN LABEL INDEXER 

DIAGNOSTIC ROUTINE 

COMPILER ROUTINE 

SCAN ROUTINE AND RELOCATABLE 

SUBROUTINES 

EXECUTIVE ROUTINE AND CLASS A 
SUBROUTINES 



THE ALLOCATION OF DISK STORAGE CANNOT BE CHANGED AFTER THE 
INITIAL LOAD EXCEPT BY ANOTHER INITIAL LOAD AND RECOMP I LAT I ON OF ALL 
PROGRAMS PREVIOUSLY HELD ON THE DISK. 



ALLOCATION OF DISK STORAGE FOR A TWO DRIVE SYSTEM 

THE SYSTEM AUTOMATICALLY ALLOCATES ONE COMPLETE DRIVE TO DATA AND 
WORKING STORAGE AND THE OTHER TO PROGRAMS AND SYSTEMS ROUTINES. BOTH DISKS 
MUST BE NUMBERED 60000 THROUGH 79999. THE SYSTEM ROUTINES OCCUPY THE 
SAME CYLINDERS ON THE SYSTEM DISK PACK AS IN A SINGLE DRIVE SYSTEM. 



SYSTEMS WITH THREE OR FOUR DRIVES 

SUPPOSE YOU HAVE FOUR DRIVES AND YOU HAVE RESERVED DRIVE 1 FOR SYSTEM 
AND DRIVE 3 FOR DATA. NOW YOU WISH TO USE 5 AND 7 FOR DATA ALSO. 
WITHIN YOUR PROGRAM YOU MAY USE THE FOLLOWING STATEMENT, N= N0DDF(5), WHICH 
WILL CAUSE DRIVE 5 TO BE TREATED BY THE MOVE ROUTINE AS THE DATA DRIVE. 
N= NODD(l) WILL CAUSE AN ERROR MESSAGE AND YOUR JOB WILL BE ABORTED. THIS 
IS TO PROTECT THE PROGRAMS AND SYSTEM OM DRIVE 1. 



THE 


NODD 


SUBROUTINE IS SHOWN 


BELOW. 


30210* 


NODD 






30230 


DORG5000 




30240 


BNR 


NODDf KTAB.O f 


IS ARGUMENT UNDEFINED 


30250 


B 


UDV,,, 


YES 


30260N0DD 


TO 


NODD-1, 401,0, 


401 IS NUMBER OF SYSTEM DRIVE 


30270 


MF 


N0DD-2,N00D-1,01, 


MAKE A FIELD OUT OF SYSTEM DRIVE NUMBER 


30290 


C 


KTAB,N00D-1,1, 


ARE YOU TRYING TO CLOBBER PROGRAMS 


30300 


BE 


NQDDA,,0 , 


NO 


30310 


TO 


402,KTAB, , 


402 IS NUMBER OF DATA DRIVE 


30315 


SF 


402 
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30320 BB 

30330IVD0:DA TFM ERMA,NeDDM-l , 1, YOU ARE DEFIN ING THE SYSTEMS DISK FOR DATA 

30340 B7 ERR 

30350NDDDM DAC 5 , NOOD ' ,N0DDA-9 

SG-^OOJMFTAB DS , 19709 

30360KTAB DS ,NFTAB-20 

3D370ERR DS ,06356 

3038GERMA DS ,03301 

30390UDV DS ,06344 

30410 DEND 



DATA STORAGE BY THE MOVE SUBROUTINE 



ASSUME THAT 40 CYLINDERS HAVE BEEN ALLOCATED FOR DATA. NOW CONSIDER A 
PROGRAM USING MOVE WHICH HAS SPECIFIED HUNDRED-WORD RECORDS AND A MAXIMUM 
NUMBER OF RECORDS EQUAL TO 800. IF THE PROGRAM STORES ALL THE RECORDS THAT 
IT SPECIFIED, IT WOULD EXACTLY FILL THE DATA STORAGE AREA. THE FIRST RECORD 
WOULD OCCUPY SECTORS 67990 THROUGH 67999 AND THE LAST RECORD WOULD OCCUPY 
SECTORS 60000 THROUGH 60009. SUPPOSE, INSTEAD, THAT THE PROGRAM ONLY 
STORES TEN RECORDS BUT STILL SPECIFIES 800. THEM THE FIRST RECORD WILL BE 
STORED IN 67999 THROUGH 67990 AS BEFORE BUT THE LAST (TENTH) RECORD IS IN 
67909 THROUGH 67900. THESE RECORDS WILL NOW BE RELATIVELY SAFE SINCE ThEY 
CAN ONLY BE ERASED bY A PROGRAM THAT STORES DATA ON ALL FORTY CYLINDERS. 
WHERE AN INSTALLATION HAS ONLY ONE OR TWO PROGRAMMERS IT WOULD THEREFORE 
BE POSSIBLE TO MAINTAIN PERMANENT DATA STORAGE ON DISK BY MEANS OF A DISK 
MEi-.URY MAP AND A DliCREET USE OF THE MOVE SUBROUTINE. FOR AN OPEN SHOP 
INSTALLATION USED BY MANY PROGRAMi-iERS THIS TYP.E OF PERMANENT STORAGE OiM 
DISK IS NOT PRACTICAL. THE BEST SOLUTION FOR AN OPEN SHOP IS TO ACQUIRE 
ADDITIONAL DISK PACKS FOR SPECIAL JOBS WHICH REQUIRE EITHER PERMANENT DATA 
STORAGE OR imURE DaTa STORAGE THAN IS ALLOCATED ON THE MAIN C4D SYSTEM 
PACK. 



CORE STORAGE AT EXECUTION TIME 



00000 - 00399 
00400 - 07649 
07650 - SSSSS 
SSSSS+2 - RRRRR 



RRRRR+1 - OP 



TTTTT - N9999 



LOAD AREA AND ARITHMETIC TABLES 

CLASS A SUBROUTINES 

UNSEGMENTED PORTION OF PROGRAi-i 

THE LAST SEGMENT WHICH HAS BEEN CALLED 

IIMTO CORE. THE LONGEST OF THE PROGRAM 

SEGMENTS DETERMINES RRRRR. 

THE RELOCATABLE SUBROOTINES CALLED BY 

THE PROGRAM 

THE SYMBOL TABLE 
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SYSTEM DECK AND LOADER INIT lAL IZATIDN 

ALL ROUTINES OF C4D ARE COMPRESSED INTO A SPECIAL FORMAT THAT DIFFERS 
FROM THE OUTPUT OF ANY PRESENTLY AVAILABLE SPS ASSEMBLER. THIS FORMAT IS 
AS FOLLOWS — 

COLUMNS 1-5 SEQUENCE NO. OF THE CARD 

6-10 CORE LOCATION THAT THE INFORMATION IN COLUMN 11 

WILL BE READ INTO (DIGIT IN COLUMN 6 IS FLAGGED) 
11-80 PROGRAM INFORMATION 

IF A RECORD MARK APPEARS ON A CARD, ALL PROGRAM INFORMATION TO THE RIGHT 
OF IT MUST APPEAR ON THE FOLLOWING CARD AND THE ADDRESS IN COLUMNS 6-10 
ADJUSTED ACCORDINGLY. 

THE FIRST THREE CARDS OF THE SYSTEM DECK TURN OFF INDEX REGISTERS, 
TURN ON INDIRECT ADDRESSING AND ZERO CORE. THE FOURTH CARD LOADS THE 
LOADER INITIALIZATION USING CORE POSITION 09900-09979 AS AN INPUT AREA. 
THE FIRST CARD FOLLOWING THE LOADER INITIALIZATION DECK CAUSES A BRANCH TO 
THE FIRST INSTRUCTION OF THE INITIALIZATION. 

THE INITIALIZATION DOES THE FOLLOWING — 

1. DEfERr-UNES CORE SIZE 

2. CHECKS FOR INDIRECT ADDRESSING 

3. REQUESTS VIA THE TYPEWRITER THE SYSTEM DRIVE NUKBER, DATA 
DRIVE NUMBER, AND A NUMBER INDICATING EITHER AN INITIAL UK 
SUBSEQUENT LOAD 

4. READS AND PUNCHES A C4D COLD START CARD 

5. STORES ADD AND MULTIPLY TABLES AND SYSTEM DIGITS ON DISK 
(SECTORS 79800-79803) 

6. READS A LOAD CARD WHICH SUBSEQUENTLY LOADS THE EXECUTIVE 
INTO CORE. 

THE EXECUTIVE ROUTINE THEN REOUESTS THAT THE PROGRAM STORAGE BEGINNING 
SECTOR ADDRESS BE ENTERED ON THE TYPEWRITER IF THIS IS AN INITIAL LOAD ON A 
SINGLE DRIVE SYSTEM (ON A MULTIPLE DRIVE SYSTEM IT IS AUTOMATICALLY SET TO 
60000). THIS ADDRESS IS STORED IN CORE AT 00181-00185 TO BE LATER 
RETRIEVED AND LOADED ONTO DISK AS PART OF THE CLASS A SUBROUTINES. THE 
EXECUTIVE IS THEN INITIALIZED AND LOADED ONTO DISK (THE DISK TABLE IS ALSO 
LOADED IF THIS IS AN INITIAL LOAD). 

THE PORTION OF THE EXECUTIVE LOCATED IN CORE POSITIONS 18000-18223 
SERVES TO LOAD THE ENTIRE REST OF THE SYSTEM AND CHECK FOR HARDWARE ERRORS 
DURING LOADING. 
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EXECUTIVE ROUTINE 



THE EXECUTIVE ROUTINE IDENTIFIES THE TYPE OF JOB SPECIFIED BY A 
CONTROL CARD. IT THEN PERFORMS THE FOLLOWING TASKS AS REQUIRED— 

1. UPDATES TABLES, 

2. LOADS CORE WITH PROGRAMS AND DATA, 

3. RELOCATES RELOCATABLE SUBROUTINES, 

4. COMPRESSES THE DISK TABLE AND PROGRAM STORAGE AREA FOLLOWING 
A PROGRAM DELETION, 

5. PRINTS OR PUNCHES APPROPRIATE MESSAGES. 

DISK TABLE 



THE EXECUTIVE CONTAINS THE DISK TABLE WHICH IS A CATALOG OF THE 
PROGRAMS STORED ON THE DISK FILE. EACH PROGRAM REFERENCE IS A TWENTY 
DIGIT RECORD CONSISTING OF THREE FIELDS. A FIVE DIGIT 

FIELD CONTAINS THE BEGINNING SECTOR NUMBER OF THE PROGRAM. THE NEXT THREE 
DIGIT FIELD CONTAINS THE NUMBER OF SECTORS FOR SYMBOL TABLE STORAGE. THE 
LAST TWELVE DIGITS CONTAIN THE FIVE ALPHAMERIC CHARACTER PROGRAM NAME AND 
AN ALPHAMERIC RECORD MARK (0+). FOR THE BENEFIT OF THE EXECUTIVE ROUTINE 
AND THE COMPILER THESE RECORDS ARE PRECEDED BY TWENTY DIGITS CONTAINING 
INFORi-iATinN ON THE I-JEXT AVAILABLE SECTOR NUMBER (NEXT AND NMP^Lfl), Thic 
i-JUi-iBtR UF USERS PROGKahS PERMANENTLY HELD (l-iAX), AND THE DISK TABLE CUKE 
LOCATION FOR THE mAX + 1 PROGRAi-, i-IAI-ic ( MPINLO ) .THE DISK TABLE IS STCIKEO Ir' COKE 
WITH THE EXECUTIVE IN LOCATION 00566 THROUGH 04499. THE SIZE OF THE TABLE 
ALLOWS PtRl-iANENT STORAGE OF 195 PROGRAMS. AN ATTEMPT TO CODE A 196Th Er-'TRY 
RESULTS IN THE ERROR IvESSAGE -DISK TABLE FULL-. CKDT IS THE RGUTImE WlTHIr.' 
THE EXECUTIVE THAT SCAmS THE DISK TaBLE FOR A SPECIFIC ENTRY. BASE, AS 
FOUND BY THE CKDT ROUTINE, CUimTAIi'JS THE ADDRESS WITHIN THE CISK TABLE OF 
THE STARTING SECTOR iv'UMbER UF THE PkOGRAi-i DESIRED. WHEh'EVER THE DISK TAhMJ- 
IS ALTERED, IT IS RtRECORDED UN THE DISK. 

WHENEVER A CORE TO DISK OR UlSK TO CORE TRANSFER IS ATTEMPTED, A AX I i-Ui-. 
OF inIIME seeks are EXECUTED TO FIND THE SECTOR ADDRESS. IF AFTER SEEKI-k; MI,-E 
TI!-iES THE WK(,)NG AiM),hESS INDICATOR IS On, THE MESSAGE-RENUi-iBER SYSTEi-i ORIVF- 
IS OUTPUT. IT IS SUGGESTED THAT THE POSITION OF THE SEEK .-iECHAi-ISH lit CHECKED 
BFEUkE RcNUMtiERIiMG THE PACK. 



CONTROL CARDS 

THE EXECUTIVE RESPONDS TO CONTROL CARDS AS FOLLOWS — 
-"■ DATE 

THE CONTENTS OF COLUMNS 7-flO ARE STORED IN THE DAYID AREA IN CORE 
AND UN DISK FOR SUBSEQUENT OUTPUT WITH EACH JOB. 
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* SRS NNN 

THE EXECUTIVE RELOCATES ALL SUBROUTINES RELATIVE TO ZERO, ENTERS THE 
NUMBER OF SUBS -NNN- AND EACH SUBROUTINE NAME IN THE SUB NAME TABLE (SUBNMS), 
ENTERS FOR EACH SUBROUTINE THE NUMBER OF SUBROUTINE INSTRUCTION DIGITS, 
SUBROUTINE INSTRUCTION PLUS DATA DIGITS, AND THE SIZE OF THE SUBROUTINE IN 
SECTORS INTO THE SUBROUTINE TABLE (SUBTAB). AFTER RELOCATING A SUBROUTINE 
AND MAKING THE APPROPRIATE TABLE ENTRIES, THE SUBROUTINE IS STORED ON DISK. 
AFTER ALL SUBS HAVE BEEN PROCESSED, THE TABLES ARE STUREU ON THE DISK. 

* DISK 

THE EXECUTIVE OUTPUTS THE NUMBER EQUAL TO MAX, THE NUMBER EQUAL TU 
NEXT, AND THE NAMES OF ALL PROGRAMS PERMANENTLY STORED ON DISK. 

* CODE NAME 

THE EXECUTIVE CHECKS THAT THE PROGRAM -NAME- IS NOT ALREADY ON FILE, 
ENTERS THE NAME OF THE PROGRAM AS THE MAX + 1 ENTRY IN THE DISK TABLE, AND 
FLAGS N(MAX+2) ON THE RIGHT TU INDICATE THAT COMPILATION HAS NOT YET TAKEN 
PLACE. THE SCAN ROUTINE IS THEN FETCHED TO CORE AND CONTROL IS TRANSFERRED 
TO SCAN. 

IF THE PROGRAM IS ON FILE, THE MESSAGE -NAME WAS ON FILE- IS OUTPUT. 

* HOLD l-!Af-it 

THE EXECUTIVE CHECKS THAT NAME WAS THE LAST PkOGkAh CCH-iPILEi) AND 
UPDATES THE DISK TABLE BY INCREMENTING i-iAX 6Y ONE AND NEXT BY THE SIZE OF 
THE PROGRAi'-i. ALSO, MPINLU (MAX PLUS ONE NAME LOCATIOim) AND K(-'P2L0 (i^.'Ai-iE- 
I-IAX PLUS TWO-LOCaTIUn ) ARE INCREMENTED BY TWENTY. NAf'iE ( l-iAX + 1) IS ZEKUED 
OUT AND i\!(,'iAX + 2) IS FLAGGED Oi\i ITS RIGHTMOST DIGIT. THE F(JHTftA^' LAotL 
INDEXER IS THEN FETCHEi;) TO CORE aNO CONTROL IS TRAi-iSFEKREI) TO THE li'-DEXEK. 

IF THE PRGGRaI'i WaS NOT THE LAST CUnPILED, A CHECK IS rADF TO SEE IF 
THE PKOGkAi-i is ALREaDY Urv' FILE. IF IT IS, THE i-iESSAGE -ix'AME '•AS Ui^ FILE- 
IS OUTPUT. OTHERWISE THE nESSAGE -NAME NOT ON FILE- IS OUTPUT. 

* RUN NAI-iE 

THE EXECUTIVE CHECKS THAT NAME HAS BEEN SUCCESSFULLY COMPILED AND 
EXISTS UN DISK AND THEN FETCHES THE UNS EGr-iENT ED PORTION OF THE PROGRAM 
INTO CURE LOCATION 7550. THE FIRST ONE HUNDRED DIGITS OF THE IJMSEGMENTED 
PORTION CONTAIN THE FOLLOWING INFORMATION — 

1. THE SECTOR ADDRESS OF THE SYMBOL TABLE CUNSTArTS Or! DISK 
RELATIVE TU BASE, THE SECTOR ADDRESS OF THE BEC^INNIimG OF THE 
PROGRAM. (SYMSEC) 

2. THE STARTING CORE ADDRESS FOR THE RELOCATABLE SUBROOTINES 
(RELBEG) 

3. THE LOW CORE ADDRESS OF THE SYMBOL TABLE (STBEG) 

4. THE HIGH CORE ADDRESS OF THE COMMON AREA (FCTEf'D) 
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5, THE LAST (LOW CORE) ADDRESS OF VARIABLES IN COMMON (ENDCOM) 

6. DESIGNATION OF WHICH RELOCATABLE SUBROUTINES ARE CALLED BY 
THE PROGRAM (ISUSED THROUGH ISUSED-72) 

(THIS INFORMATION WAS SUPPLIED BY THE COMPILER AT COMPILE TIME). 

THE SYMBOL TABLE AREA IS FILLED WITH 0+ AT THE RIGHT OF EACH SYMBOL 
TABLE SLOT, AND DISK SECTORS CONTAINING SYMBOL TABLE ENTRIES (SIX PER 
SECTOR) ARE READ ONE AT A TIME AND THE CONTENTS OF EACH STORED IN THE 
CORE SYMBOL TABLE AREA* THE RELOCATABLE SUBROUTINES THAT ARE 
REFERENCED ARE FETCHED ONE AT A TIME, ENTRY POINTS ARE RECORDED IN THE 
SYMBOL TABLE, AND EACH IS PROPERLY RELOCATED. THE FIRST FIVE SECTORS OF 
THE CLASS A SUBROUTINES ARE BROUGHT INTO CORE AND STBEG AND FCTEND (3 AND 4 
ABOVE) ARE STORED WITHIN THESE FIVE HUNDRED DIGITS AT PRBS AND COMBEG 
RESPECTIVELY. THE REMAINDER OF THE CLASS A SUBROUTINES ARE CALLED TO CORE 
AND CONTROL IS TRANSFERRED TO THE PROGRAM NAME. 

*CUT NAME (WHERE NAME IS ENTRY K) 

THE EXECUTIVE CHECKS THAT THE PROGRAM EXISTS ON FILE AND FOLLOWS 
ONE OF TWO PATHS ACCORDING TO WHETHER NAME WAS OR WAS NOT THE LAST PROGRAM 
PERMANENTLY STORED. IN EITHER CASE, MPINLU AND MNP2L0 ARE BOTH DECREMENTED 
BY TWENTY AND h/\X IS DECREMENTED BY ONE. THE NONEXISTENCE UF NAME ON FILE 
RESULTS IN THE MESSAGE -NAME NOT ON FILE-. 

IF NAME WAS THE LAST PERMANENTLY RECORDED PROGRAM, NEXT IS DECREMENTED 
BY THE SIZE UF THE PRUGRAI-i BEING DELETED, THE NAi'iE UF THE PROGRAM IS ZEROED 
OUT, AND N(l-iAX + 2) IS FLAGGED UN THE RIGHTMOST DIGIT. THE ALTERED DISK TABLE 
IS RECORDED Oivi DISK. 

IF rjAi-iE WAS NOT THE LAST PERMANENTLY RECORDED PRUGRAi-i, THE FOLLOhllvG 
OCCURS. NEXT IS SET EQUAL TO BASE + THE NUMBER OF STORED PROGRAI- SECTORS 
FOLLUWING PRnGKAi-i K. THE DISK PRUGRAim STORAGE AREA IS CUr.PRESSED BY READIiVG 
THOSE PRUGRAiiS FOLLUl-ING NAME FRUis THE DISK INTO A CORE BUFFER AREA (BUFhFG) 
Al^iU THEN REPLACIivG THE PKUGRAi-iS ONTLJ THE DISK S Ta RT I i>.iG Ii- THE AREA ',-:HERfc 
NAME EXISTED. AFTER THIS PRUCESS IS COilPLETE, THE DISK TABLE IS UPDATtD BY 
SUBTRACTING THE SIZE UF NAi-iE FR[}i-i N(K+1), MOVING Ei^'TkY K+1 BACK Ui-iE TO ThF 
PUSITIOi\i FORi-lERLY CUNTAINING THE K ENTRY AND EXECUTING THIS SUBTRACT lO'V' Afiu 
SHIFT FOR The REi-iAIiMlWG ENTRIES K+2 THRUDGH MAX+1. FINALLY NAME ( ;-,AX+ 1) IS 
ZEROED OUT AND N(hAX+2), IS FLAGGED UN ITS RIGHTMOST DIGIT, THE ALTERED DISK 
TABLE IS RECORDED Oi\i DISK, AND THE EXECUTIVE IS RECALLED IN ITS ENTIRETY TU 
GORE WHEREIN IT LOOKS FOR A NEW « CONTROL CARD. 

A-HDWR ERR EXEC-l^iESSAGE DURING *CUT JOB INDICATES THAT A DISK CHECK 
HAS OCCURRED TWICE WHEN ATTEHPTIImG TO RECORD THE UPDATED DISK TABLE. 
IF A HARDWARE ERROR (INCORRECT DISK-CORE READ/WRITE OR l-iISSIi^G SECTOR 
ADDRESS) OCCURS DURING THE COMPRESSING OF THE PROGRAM STORAGE AREA THE NAMES 
OF PROGRAMS K THROUGH MAX+1 ARE ZEROED IN THE DISK TABLE. r-iAX IS SET EQUAL 
TO K-1, NEXT IS SET EQUAL TO N(K), AND THE HEVl N(MAX+2) IS FLAGGED 
UN ITS RIGHTMUST DIGIT. THE EXECUTIVE LESS THE DISK TABLE IS FETCHED TO CORE, 
THE NEW DISK TABLE IS RECORDED, THE MESSAGE -CUT HDWR ERR- PROGRAMS 
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ON FILE FOLLOW- IS OUTPUT, AND THE NAMES OF THE PROGRAMS REMAINING ARE 
OUTPUT. IF A HARDWARE ERROR OCCURS DURING THIS ATTEMPT TO SAVE PROGRAMS 
NUMBERED ONE THROUGH K-1 (E.G. WHEN RECORDING NEW DISK TABLE), THE MESSAGE 
-RELOAD C4D, INITIAL LOAD- IS OUTPUT, AND THE MACHINE HALTS WITH A CHECK 
STOP. 

EXECUTIVE CALLED BY LINK SUBROUTINE 

WHEN THE EXECUTIVE IS CALLED BY THE LINK SUBROUTINE, THE PROGRAM TO BE 
RUN IS TREATED AS EXPLAINED UNDER *RUN NAME WITH ONE EXCEPTION -THE COMMON 
AREA OF THE SYMBOL TABLE IS NOT INITIALIZED WITH RECORD MARKS BEFORE INSERTING 
THE DEFINED SYMBOLS OF THE PROGRAM IN THEIR PROPER CORE LOCATIONS. 



C+D SCAN 



SCAN WAS ADDED TO THE C4D SYSTEM TO SAVE TIME. SINCE THE COriPILtR 
AND DIAGNOSTICIAN BOTH NEED SIMILAR INFORMATION ABOUT THE SOURCE 
STATEMENTS, SCAN ASSEMBLES THIS INFORMATION AND STORES IT ON DISK. IT DOES 
THE FOLLOWING — 



1. READS SOURCE CARDS 

2. COMPRESSES BLANKS (EXCEPT IN FORMAT STATEMENTS) 

3. DOES SOME MINOR ERROR CHECKING (E.G. UNBALANCED PARENTHESIS) 

4. DETERMINES THE STATEMENT TYPE 

5. SEQUENTIALLY NUMBERS EACH CARD IMAGE ON THE RIGHT IF THE 
FIRST CARD IS NOT NUMBERED IN COLUMNS 77-80. 

6. SETS UP BRANCH ADDRESSES FOR THE DIAGNOSTICIAN AND COMPILER 

7. STORES THIS INFORMATION ALONG WITH THE SOURCE STATEMENT IN 
THE WORKING STORAGE AREA ON DISK 

8. CHECKS FOR AN END CARD, IF NONE IS FOUND THE MESSAGE -NO 
END CARD- IS PRINTED AND THE EXECUTIVE IS CALLED. 
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C4D DIAGNOSTICIAN 

THE DIAGNOSTIC ROUTINE CONSISTS, OF 2 PARTS, THE FIRST OF WHICH 
CONTAINS CHECKING ROUTINES FOR EVERY ALLOWABLE TYPE OF STATEMENT EXCEPT 
DATA AND END. WHENEVER EITHER A DATA OR END STATEMENT IS ENCOUNTERED THE 
SECOND PART IS CALLED SO THAT IT OVERLAYS ONLY THE ARITHMETIC STATEMENT 
CHECKING ROUTINE. ALL THE SUBROUTINES, SUCH AS THE LABEL PROCESSOR, 
NEEDED BY PART TWO ARE LEFT IN FROM PART ONE. AFTER THE END STATEMENT IS 
FOUND, THE TABLES OF UNDEFINED LABELS, UNDEFINED VARIABLES, AND OPEN DO 
LOOPS, IF ANY, ARE OUTPUT. THE COMPILER IS THEN CALLED AND EITHER COMPILES 
THE PROGRAM IF NO ERRORS HAVE BEEN FOUND OR MERELY LISTS IT IF IT CONTAINS 
ERRORS. 

ERRORS 

WHEN AN ERROR IS ENCOUNTERED, THE CONTENTS OF THE INPUT AREA ARE 
SHIFTED TO THE RIGHT, ERRXX (WHERE XX IS THE ERROR NO.) IS INSERTED ON THE 
LEFT AND THE AREA IS PRINTED OR PUNCHED DEPENDING ON THE SETTING OF SENSE 
SWITCH 2. THE CONTtNTS ARE THEN SHIFTED BACK TO THE ORIGINAL POSITION 
AND A FLAG IS SET TU INDICATE THAT THE PROGRAM CONTAINS ERRORS. 

WHENEVER POSSIBLE, ERROR CHECKING CONTINUES ON A PARTICULAR STATEi-iE^'T 
AFTER AN ERROR IS FUUND. SUMETIi-iES, HOWEVER, THE ERROR IS SUCH THAT IT 
MOULD MAKE FURTHER CHECKING OF THE STATEMENT IMPOSSIBLE (E.G. A i-iISPLACEO 
COi^tTIiMUATION CARD Ok AN UNRECOGNIZABLE STATEMENT). THIS OFTEN RESULTS I'J 
FURTHER ERRORS — SUCH AS, AN UNDEFINED LABEL WHICH WAS ACTUALLY DEFINED 
IN THE STATEMENT IN ERROR. THE PROGRAMMER WILL FIND THAT CURRECTKiri UF 
THE FIRST ERROR WILL CORRECT THE OTHERS THAT IT CAOSEO. 

SENSE SWITCHES 

THE ONLY SENSE SWITCH APPLICABLE TO THE DIAGNOSTIC ROUTINE IS SWITCH 
2. THIS SWITCH IS TESTED AS SUON AS THE DIAGNOSTICIAN IS BROUGHT INTO 
CORE AND OUTPUT STATEMENTS ARE INITIALIZED ACCORDING TO THE SETTING. 
HEnCE, THE RESETTING OF SWITCH 2 ONCE THE DIAGNOSTICIAN IS ALREADY IN CORF 
WILL NOT CHANGE THE OUTPUT DEVICE. 

SYi-iBOL TABLES 
THERE ARE FIVE TABLES IN THE DIAGNOSTICIAN — 
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TBLF - HOLDS UP TO 37 SUBROUTINE NAMES 
TBLB - HOLDS UP TO 15 OPEN DO LABELS 
TBLD - HOLDS UP TO 60 OPEN DO INDEXES 
TBLA - HOLDS VARIABLE NAMES 

TBLAl - HOLDS STATEMENT, SEGMENT AND PROCEDURE LABELS. 

EACH OF THE TABLES HOLDS 10 DIGIT FIELDS. TBLF, TBLB, AND' TBLD ARE OF 
FIXED LENGTH. TBLA AND TBLAl ARE OF VARIABLE LENGTH DEPENDING BOTH ON CORE 
SIZE AND THE SIZE OF EACH OTHER. TBLA BEGINS AT THE END OF TBLD WHEREAS 
TBLAl BEGINS AT HIGH NUMBERED CORE AND WORKS ITS WAY DOWN UNTIL IT 
ENCOUNTERS TBLA. A RECORD MARK INDICATES THE END OF EACH TABLE. ALL 10 
DIGIT ENTRIES ARE FLAGGED ON THE LEFT. 

TBLF 

ENTRIES ARE MADE INTO THIS TABLE DIRECTLY FROM THE DISK. 
SUBROUTINE NAMES ARE BROUGHT IN AS PART OF THE INITIALIZATION. THIS 
TABLE IS USED ONLY FOR COMPARISON AND ONCE THE NAMES ARE BROUGHT IN, NO 
DELETIONS OR ADDITIONS ARE MADE. ALL VARIABLE NAMES ARE COMPARED AGAINST 
THIS TABLE AND AN EQUAL COMPARE RESULTS IN ERROR 40 (SUBROUTINE NAME USED 
AS A VARIABLE NAME). CONTENTS OF TBLF ARE NEVER OUTPUT. 

TBLB 

ENTRIES ARE MADE TO THIS TABLE WHEN A DO STATEMENT IS ENCDUimTEREO . 
THE LABEL IS HELD HtRE UNTIL THE STATEMENT WITH THAT LABEL IS READ. EACH 
TIME A LABELED STATEMENT IS READ, THE LABEL IS COMPARED AGAINST THIS TABLE 
TO SEE IF IT CLOSES A DO LOOP. IF SO, THE LABEL IS REMOVED FROM THE 
TABLE. IF ANY ENTRIES REMAIN AT THE END OF THE PROGRAM, THE CONTENTS OF 
THIS TABLE ARE PRINTED AS OPEN DOS. 

TBLD 

ENTRIES ARE ALSO MADE TO THIS TABLE WHENEVER A DO STATEMENT IS 

ENCOUNTERED AND DELETED WHEN THE DO LOOP IS CLOSED. ENTRIES ARE COMPARED 

AGAINST THE INDEX OF A NEW DO LOOP OR AN IMPLIED DO AS IN A HEAD 

STATEMENT ( RE ADl , ( A ( I ) , 1=1,10). IF THE INDEX BEING COMPARED IS ALREADY IN 

THE TABLE, IT RESULTS IN ERROR 18. THE CONTENTS OF THIS TABLE ARE NEVER 
OUTPUT. 

TBLA 

VARIABLE NAMES ARE ENTERED INTO THIS TABLE AS THEY ARE ENCOUNTERED. 
IF PUT IN BY A DIMENSION STATEMENT, A FLAG OVER THE NINTH POSITION 
INDICATES THAT IT HAS BEEN DIMENSIONED. (FOR EXAMPLE, DIMENSION A(20) 
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GOES IN AS MlOOOOOO-0). IF ENTERED BY AN INPUT STATEMENT, OR FROM THE LEFT- 
HAND SIDE OF AN ARITHMETIC STATEMENT, IT IS PUT IN AS DEFINED, THAT IS, 
WITH ONLY A FLAG AT THE LEFTMOST DIGIT (6=2. GOES IN AS M200000000). IF IT 
IS A VARIABLE THAT IS REFERRED TO BUT NOT YET DEFINED IT IS PUT IN WITH A 
FLAG ALSO OVER THE RIGHTMOST DIGIT ( T=CA GOES IN AS M34100000-). WHEN THIS 
VARIABLE IS DEFINED LATER IN THE PROGRAM, THE FLAG IS REMOVED. IF AT THE 
END OF THE PROGRAM ANY ENTRIES REMAIN WITH A FLAG OVER THE RIGHTMOST DIGIT, 
THESE ENTRIES ARE OUTPUT AS UNDEFINED SYMBOLS. SUBSCRIPTED VARIABLES ARE 
CHECKED AS TO WHETHER THEY HAVE BEEN DIMENSIONED, BUT NOT AS TO WHETHER 
THEY HAVE BEEN DEFINED. 

TBLAl 

LABELS ARE ENTERED INTO THIS TABLE AS THEY ARE ENCOUNTERED. IF IT IS 

A STATEMENT, SEGMENT OR PROCEDURE LABEL IT IS MERELY PUT IN WITH A FLAG ON 

THE LEFTMOST DIGIT. IF REFERRED TO, BUT NOT YET DEFINED, A FLAG WILL ALSO 

APPEAR ON THE RIGHTMOST DIGIT. WHEN THIS LABEL IS DEFINED, THE FLAG IS 

REMOVED. IF AT THE END OF THE PROGRAM, ANY LABELS REMAIN WITH A FLAG ON 
THE RIGHTMOST DIGIT, THEY ARE OUTPUT AS UNDEFINED LABELS. 



SUHkUUTI iMtS 

THE UlAGNUSTICIAr-i CUhiTAIi-.iS A NUi-.BER OF SUBROUTIivES WhilCH HEPL'KT bACK 
TO THt I'lAlNLIi-ib PkUGRAKi BY MEAivS OF VARIOUS SWITCHES — 

lUPROC THE Ii^JPUT/UUTPUT PROCESSOR I'.'HICH HANDLES READ, KERtAO, 
PUNCH, TYPE A.>iD PRINT S TAT E ■''Eh T S . CHECKS FIH^ A FiiKi":AT 
.\^UrirtEK ArJO I/u LIST. 

LHPROC PKUCESSES LABELS AMJ ASSEI-.BLES THt ChAKACTEkS 1 1-' A HLACb 
CALLED - LABEL - FOR SUbSEUUFr'T CUr-i P A k I S I S AC-.AlNST 
bNTRIES IN THE SYMBOL TABLES. 

TLU TABLE LUOK-UP ROUTINE WHICH HANDLES ALL Eh-TRIES AhJI) 

UbLETIUrJS TiJ THE SYMBOL TABLES (EXCEPT TBLF '-'HEkE 
ENTRIES ARE MADE FkOf-i THE DISK AS PART OF THE 
iNlTIALIZATIOiv) . 



STMNO 



CHECKS STATEMENT LABELS. A DIGIT IN LOCATION 563 (PUT 
THERE BY SCAN) CAUSES A BRAiMCH TD THIS ROUTIr-'E. 
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INTERNAL SWITCHES 
SWITCH FLAG ON THIS SWITCH INDICATES — 

1 PREVIOUS STATEMENT ENDED WITH A COMMA, SO EXPECT A 
CONTINUATION CARD (BRANCH INTO CHECKING ROUTINE WILL BE 
DIFFERENT FROM REGULAR ENTRY). 

2 CONTINUATION CARD IS BEING PROCESSED 

12 THIS STATEMENT ENDS A DO LOOP 

13 -SYMBOL TABLE EXCEEDED- MESSAGE HAS BEEN PRINTED. DO NOT 
PRINT IT AGAIN. 

20 LBPROC FOUND A NUMERIC LABEL 

21 LBPROC FOUND A FIXED POINT LABEL 

22 LBPROC FOUND A DECIMAL POINT 

23 LBPROC FOUND AN E 

24 LBPROC FOUND A SUBSCRIPTED VARIABLE 

27 NUMERIC SUBSCRIPT FOUND 

28 FINISHED PROCESSING SUBSCRIPT 

29 SPECIAL CHARACTER FOUND IN SUBSCRIPT 

30 TLU SHOULD PUT LABEL IN TABLE 

31 TLU SHOULD REMOVE LABEL FROM TABLE 

32 TLU SHOULD PUT UNDEFINED FLAG (RIGHT-HOST POSITION) ON LABEL 

35 TLU DID NLiT FIND THIS LABEL IN TABLE 

36 THIS LABEL IS UNDEFINED IN THE TABLE (FLAG IS ON R IGHT-i-,r)ST 
DIGIT) 

37 TLU SHOULD PUT DIMENSION FLAG (NINTH POSITION) ON LABEL. 

38 LABEL FOUND IN TABLE HAS DIMENSION FLAG 

46 TLU REMOVED THIS LABEL FROM THE TABLE 

47 LBPROC SHOULD NUT SAVE CHARACTERS FOUND BECAUSE THIS IS A 
NUMERIC CONSTANT AND WILL NOT BE STORED. 

4b LBPROC FOUND A SUBROUTINE NAME 

49 DO STATEMENT IS BEING PROCESSED 

52 EXPECT A FORi'iAT NUMBER 

54 OUTPUT STATEMENT IS BEING PROCESSED 

61 ARITHMETIC DEFINITION FOUND 

63 FIXED MODE 

64 EXPONENTIAL EXPRESSION 

65 PREVIOUS EXPRESSION FIXED 

70 COMPUTED GO TO STATEMENT 

71 DIMENSION STATEMENT 

73 COMMON OR DIMENSION STATEMENT 

99 LBPROC FOUND EITHER A SUBSCRIPTED VARIABLE OR A SUBROUTINE 

200 NUMBER FOUND BEFORE A FORMAT SPECIFICATION 

201 OPEN PARENTHESIS IN A FORMAT STATEMENT 
500 ONLY COMMON STATEMENTS PROCESSED SO FAR 
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501 THIS IS A COMMOiM STATEMENT, SO DO MOT CLEAR SWITCH 500 
SWTR A TRANSFER STATEMENT HAS JUST BEEN PROCESSED. 

SWTRE UNLABELED STATEMENT FOUND AFTER A TRANSFER STATEMENT 
Al TLU SHOULD USE ITS ROUTINE FOR TBLAl (SINCE THIS TABLE GOES 

ESSENTIALLY BACKWARDS, THE METHOD FOR SEARCH, ADDITION AND 

DELETION IS SLIGHTLY ALTERED) 
SEGFLG AN END SEGMENT STATEMENT HAS BEEN FOUND 

FLAG AT LEAST ONE ERROR HAS BEEN FOUND IN THE SOURCE PROGRAM. 

SWC PREVIOUS IF STATEMENT USED THE -C- FEATURE SO THIS STATEMENT 

NEED NOT BE NUMBERED 
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ISUSED 


DS 


05348 


16 


05682 


95732 


01020 


RUMO 


TFM 


05360 


16 


00070 


e0299 


01025 




TFM 


053 72 


4 7 


05 396 


00200 


01030 


RUN 


BMI 


53 84 


31 


05022 


07392 


01040 




TR 


05396 


26 


07499 


00574 


01050 




TF 


05408 


1 1 


07499 


Goeo 1 


01060 




AM 


05420 


27 


07500 


07499 


01070 




BT 


05432 


71 


04719 


00036 


01080 




MF 


5444 


44 


05480 


00099 


01090 




BNF 


5456 


44 


05536 


07755 


01100 




BNF 


05468 


44 


05536 


00585 


OHIO 




BNF 


05480 


26 


04929 


07435 


01120 


NNOD 


TF 


05492 


26 


04921 


00425 


01130 


MISSER 


TF 


5504 


17 


05022 


94913 


01140 




BTM 


05516 


44 


09210 


04719 


01150 




BNF 


05528 


49 


05304 




01160 




B7 


5 536 


25 


044 94 


00401 


01170 


RUNl 


TD 


5 548 


34 


04494 


00701 


01180 




K 


(;5 560 


26 


000 37 


04719 


01190 




TF 


55 72 


15 


000 3 5 


00000 


01200 




TDI'i 


55 84 


26 


0002 3 


04499 


01210 




TF 


055 96 


16 


0004 2 


95676 


01220 




TFM 


05608 


15 


000 25 


00006 


01230 




TDM 


05620 


16 


000 5 7 


97550 


01240 




TFM 


05632 


26 


00049 


04499 


01250 




TF 


05 644 


25 


00044 


00401 


01260 




TD 


(;5656 


16 


0005 2 


00201 


01270 




TFM 


5 668 


■ 49 


000 12^ 




01280 ' 




B7"" 


u56 76 


46 


05 75 6 


03700 


01290 


RUN 2 


BI 


()56o8 


Z;. 


05 7 00 


03800 


01300 




BI 


05 700 


2 7 




05107 


01310 




BT 


5 712 


33 


05 24 


00000 


01320 




CF 


5724 


4\; 


07 24 




01330 




8 7 


U5 732 


2o 


058 03 


07574 


01340 


KUMLK 


TF 


('5 744 


12 


058 03 


90010 


01350 




SM 


0^756 


27 


05108 


5107 


01360 


RUN 3 


BT 


5 7 6 8 


15 


000 35 


00002 


0137U 




TDM 




21 


05 82 2 


07 564 


01380 




A 


(J 5 792 


14 


0582 2 


©9999 


01390 


OUBFIN 


CM 


5 (5 04 


6 


05 848 


01100 


01400 




BH 


05 816 


2 6 


eoolo 


046 51 


01410 


iJUBST 


TF 


O5i;2o 


11 


058 22 


90010 


01420 




AM 


0i3ii40 


4 9 


0579 2 




01430 




B7 


05 848 


21 


05 8 66 


04499 


01440 


FEIST 


A 


0So60 


14 


90003 


00900 


01450 


FETSTl 


CM 


05872 




06 06 4 


01200 


01460 




BE 


058 84 


16 


0005 7 


95372 


01470 




TFM 


053 72 




00000 




01480 


BUFFER 


DS 


05 8V6 


2-) 


00069 


00009 


01485 




TD 


05908. 


16 


0005 2 


00901 


01490 




TFM 


0!3S.'2(J 


26 


00049 


04499 


01500 




TF 


5 932 


21 


00049 


07554 


01510 




A 


05 944 


16 


00042 


95964 


01520 




TFM 


595 6 


49 


00012 




01530 




B7 


5 964 


27 


05096 


05095 


01540 


CKSTRD 


BT 


05 976 


11 


00049 


90001 


01550 




AM 


05988 


45 


06032 


05372 


01560 


TESTRM 


BNR 


06000 


24 


00049 


06 599 


01570 




C 


06012 


46 


06 064 


01300 


01580 




BNL 


06 024 


49 


00012 




01590 




B7 


06032 


26 


05 376 


05386 


01600 


TF 


TF 


06 044 


31 


05372 


05387 


01610 




TR 


06 05 6 


49 


05 988 




01620 




B7 










01630 














01640 


» 












01650 






00569 




00001 




01660 


SBINDG 


DS 


00 5 73 




00001 




01670 


SUBDIG 


DS 


0057 8 




00001 




01680 


SUBSEC 


DS 


06 064 


34 


04990 


00701 


01690 


FETREL 


K 


06076 


25 


0006 9 


00009 


01695 




TD 


06088 


26 


00052 


04998 


01700 




TF 


06100 


16 


00057 


90566 


01710 




TFM 



OPERANDS AND REMARKS 



RUN 



1,87 9 
1 ,7650 

100 ,UNSEG-100 , , 
1 ,SEClUS+4 
l,SEClUS+9 
1 ,SECIUS + 14 
1,SEC1US+19 
,SEClU5. + 24 
1 ,SEClUS+27 
1 ,SEClUS+99 
RUN2+6 jRUWLK 
70 ,299 
*+24 ,0 0200 , , 
PRINT,,PRNTR 
MAXLOC ,HAX 
MAXL0C,1,9 
CKOT, MAXLOC 
LDCRD,36 
NNOD, 99 
RUNl ,LSTEMT 
RUNl ,NMP2L0, 11 
DTERR + 16 ,M0T , , 
DTERR + 8 ,NAME 
PR I NT, DT ERR, 7 
BE'G,LDCRD 
FETEX2 , , , 
BASE-5,401 
BASE-5, 00701 
ZLDCRDjLDCRl) 
35,0 

23,BASE,11 , 
ZLDBR,RUN2,7 
ZLDR0!',6, , 
ZLDCA, SECIUS, 7 
ZLDSAjBASE, 11 
ZLDDC,401 
_ZL_DSC,20_1,_9 _ 
12 

RUN3 ,3 700 , , 
*+12 ,3800 
R0WCK+12,R0WCK+11 
FLAG 
CYLUFL 

DUBFIN + 11 ,Ei'DC!iii 
DUBFIN+11 , 10 
R0WCK+12,R0WCK+11 
35,2 

DUBST+6, STBEG, , 
DUBST+6,9999 
FETST 

10,0AYRiS2 
DUBST+6, 10,7 
DUBFIN 

FETSTl+6,BASIf 

3,0,29, P AMiiR IS THAT Oi- 

FETREL 

ZLDCA, BUFFER, 7, 
, RUN 

69 ,9 
ZL DSC, 1,9 
ZLDSA,BASE,11 
ZLDSA,SYWSEC 
ZLDBR,CKSTRO 
12 

R0WCK,R01'!CI<-1 
ZLDSA,1,7 
TF, BUFFER 
ZLDSA, IMXM20, 11 
FETREL 
12 

BUFFER+4,BUFFER+14,6 
BUFFER, BUFFER+15 
TESTRM 



SINGLE SECTOR PRECEDING UMSE 



FOR ENTRY VIA LIi\'K ROUTINE 



PROGRAM TO BE CUT OR RUN NOT ON DISK 



L INK-RUN 



STORE BEG SECTOR NO AS BASE FMU SEi 



I.K, 03700 IF Lii 



FILL SYN Tad AREA "ITN FLaGG 



, =N0 



FfiTCH SECTOR Of 



STli'<i-l,i SizCT 
F SY 



L TAbLh 



1 ,00569 
1 ,00573 
1,00578 

SBTBDC, 00701 , , 
69 ,9 

ZLDSC,SBTBnC+8 
ZLDCA, 566, 7 



LOAD RELOCATABLE SUBRijiiT 



FETCH SUBROUTINE TABLE. OVER uis:; T, 
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LOCTN 


OP 


P /L 




PC / I M 




riiM C rl 


'UrcrsAtMUo- AIMU KtrlAr 


061 12 


16 


00042 


66 132 


01 720 




TFM 


7 1 DRR - APT^T . 7 


06124 


49 


0001 2 




01730 




R7 
D f 




061 32 


27 


05096 




Kjx 1 tyj 


A PTQT 


RT 
D 1 




06144 


15 


00035 




01750 




TDM 


35 fO 


06156 


25 


06306 


00400 


01760 






Q Y . P . Ann 


06168 


43 


06200 


67649 


01770 




BD 


^ VTRR T Qn<^ Pn 7 


06180 


15 


06787 




01780 




TDM 


1 nn T . n 

I. lJU 1 O ) U 


061 92 


49 


06728 




1 790 




B7 


REL6 


06200 


15 


06787 


0000 1 


1800 


c YTRR 
o 1 1 DD 


TnM 


t nn TP 1 


06212 


26 


04663 


07559 


01810 








0622 4 


26 


05021 


0466 3 


01820 




jp 


nilMV.RRPT 
L"J rl T J D rv r 1 


06236 


2 1 


05021 


6057 3 


018 30 


RELl 


[j^ 




06248 


24 


05021 


07564 


01840 








06260 


47 


06 304 


01300 


01850 




BL 


BP2ST 


062 72 


17 


05022 


64667 


01860 




BTM 


PR TNT . nvi AP . 7 


062 84 


15 


00035 


00002 


01870 




TDM 


35,2 


06296 


49 


05304 




01880 




57 


FET EX2 


06304 


3 1 


09990 


04657 


01890 


BP2ST 


TR 


QQQO.RRPT— 6 


06316 


26 


00049 


60578 


01900 


REL7 


JP 




06328 


16 


00054 


60099 


01910 




TFM 


7 1 n^r+p .99.7 


06340 


2 1 


00054 


60573 


m Q 7n 








063 5 2 


26 


0005 7 


04663 


019 30 




J p 


71 nr A RRPT 


063 64 


1 6 


00042 


66 384 


01940 




1 r rl 


7inRD DPID^ 7 


06 3 76 


49 


00012 




U i V u 




R 7 
D ( 


1 O 

X 4 


06384 


46 


06 396 




n 1 Q c o 


DPI i) O 


R T 


tI7AA 

*T J. d ^ i 1 00 


06396 


27 


05108 


05107 


n 1 Q An 

U 1 V o u 




RT 
D 1 


KU WOI\ + i » KUI'tO iNT i X 


06408 


26 


065 1 5 


07559 


019 70 




T C 

1 r 


DPI nDa.1 1 DPI QPr 


06420 


16 


06575 


6000 1 


1980 




TFM 


R PI nn+ 11. nnnni 7 


06432 


21 


06575 


06 5 1 5 


1990 




l\ 


RPi nn+1 1 .RPi np + i 1 


06444 


16 


06546 


60006 


02000 




TFM 


PPBEG+6 ,00006 >7 


06456 


21 


06546 


0651 5 


020 10 




A 


PPBEG+6,REL0P+11 


06468 


16 


06606 


60011 


02020 




TFM 


QPB EG+6 , 000 11,7 


06480 


2 1 


066 06 


06 51 5 


02030 






nPRFfi+A.RFi np+11 


06492 


16 


065 39 


60000 


02040 




TFM 


KDIINT .n. 7 


06504 


44 


06564 


nonnn 


020 50 


RELOP 


BNF 


RELOQ 


06516 


44 


06540 


06546 


020 60 




BNF 


{i-+P4 . PPRPfi+A 11 


06528 


32 


0655i 


00000 


02070 




S F 


PPR FR+ 1 1 . . fi 


06539 




00005 




02080 


KQUNT 


OS 


5, * 


06540 


21 


n n 


07559 


02090 


PPBEG 




.RPI RPfX 


6552 


33 


0655i 


00000 


02100 




CF 


PPBEG+11 , ,6 


06 5 64 


44 


066 24 


00000 


2110 


R E L 


BNF 


I NCRL 


065 76 


44 


066 00 


06606 


02120 




BNF 




065 88 


32 


066 li 


00000 


02130 


BAS 


SF ~~ 




065 99 




00005 




02140 


NXM20 


OS 


5 » BAS+ 1 1 


066 00 


2 1 


00 00 


07559 


021 50 


P B E G 


A 


.DPI Rpr; 

, r\ C U D C O 


06612 




066 li 


00000 


02160 




C F 


nPR F r;+ 1 1 . . a 


06624 


1 1 


065 39 


60012 


02170 


INCRL 


A M 


K nilMT . 1 ? . 7 


06 636 


24 


(J 6 5 39 


60569 


02180 


R E L3 






06648 


46 


06 7 1 6 


01300 


02190 






RPI S 


666 


1 1 


06 515 


600 12 


02200 




Ai-' 




''667? 


1 1 


06546 


600 1 2 


02210 




Ai-i 


P PR P C + h 1 ? 7 




1 1 


n 5 7 5 


60012 


022 20 






D PI nn+ 1 1 . 1 ? . 7 

rNCUUW~XX,X^t 1 


1166 96 


1 1 


1!) 6 ( ) 6 


600 1 2 


22 30 




Al'i 


nPR Ff^+ A . 1 ? . 7 


() 6 7 8 


49 


U6 5 04 




02240 




B7 


R PI np 

rs C L U r 


06 716 


2 6 


7 *3 9 


05021 


022 50 


R EL 5 


T F 


p PI R p(; 1 )i ii.i Y 


06728 


14 


06 17 9 


67*^77 


022 60 


R E L 6 


C i"i 


RPirK + ll.lAQT<;R 7 


06 740 


46 


7 040 


01200 


n y ? 7 f 1 




RP 
D C 


P P T A C Q 

r C 1 A o D 


1 ) 6 


] 2 


06 310 


600 20 


02280 




S M 


R P ? <^ T + A . ? n 7 


06 764 


1 2 


06 179 


60002 


02290 




S H 


DPI pK + l 1 .7.7 


06 776 




06 786 


00000 


02 300 


FL ADG 


CF 


1 K P F 1 C-, 


(j6 786 




00000 




02310 


USEFLG 


DS 


. PI Anf;+ 1 n 


678 7 




00000 




02320 


LDD I G 


OS 


. PI Ai'ir;+ 1 1 


06788 


1 1 


06 247 


6001 3 


02330 




AM 


RPI 1+1 1 .13.7 

r^ci^xT^xxyx-^j i 


068 00 


43 


06 892 


06 179 


2340 




BD 


V »RELCK + 11 , 1 1 


068 12 


16 


06 7 87 


00000 


02350 




TDM 


LDD IG , 


06824 


32 


06 786 


00000 


02360 




SF 


USEFLG 


06836 


1 1 


06647 


60013 


02370 


ADD2 


AM 


REL3 + 1 1 » 13 , 7 


06 848 


1 1 


06 35 1 


60013 


023 80 




AM 


REL2+1 1,13,7 


06 8 6 


1 1 


06 32 7 


6001 3 


02390 




AM 


D PI 7+1 1 . 1 •J . 7 
r\CL.i«xxtx_j, t 


06 872 


44 


06200 


06786 


02400 




BNF 


S YTBB jUSEFLG 


068 8 4 


4 9 


06 72 8 




02410 




B7 


REL 6 


U 6 8 9 2 


14 


06 24? 


06000 


02420 


y 


CM 


RPI 1+1 1 .O.AK 


06 9 04 


47 


()6o56 


01200 


02430 




BNE 


ADD2 


06916 


32 


06 786 


00000 


02440 




SF 


USEFLG 


06 927 




U(jO 05 




02450 


TIGER 


DtC 


s . n 'S s n . * 


0692 ;i 


43 


06 984 


06 787 


02460 




BD 


7.1 nn T r; 


06940 


1 2 


06 247 


60013 


02470 




SM 


RPI 1+11.13.7 

lNl_L,XT^XXTX-J, ( 


6 95 2 


1 1 


06 179 


60002 


02480 




AM 


DPI TK+I 1 .?.7 


06 964 


1 1 


06 310 


600 20 


02490 




AM 


RPP'^T+A . ?n . 7 


06 976 


49 


06200 




02500 




(37 


SYTBB 


• 06 984 


1 1 


06647 


600 1 3 


02510 




AM 


Dp|:24.1ii:i 7 
r\CL->~XXtX^y I 


06 996 


21 


04663 


0664? 


02520 




/\ 


RR PT . RFI ■^+ 11.11 


07008 


3 1 


06 3 1© 


04657 


02530 




TR 


BP2ST+6»BRPT— 6,6 


07020 


22 


04663 


06647 


02540 




S 


BRPT,REL3+11, 11 


0703 2 


49 


06 848 




02550 




B7 


A0D2+12 


07040 


15 


000 35 


00002 


02560 


FETASB 


TDM 


35,2 


0705 2 


25 


0006 9 


00009 


02565 




TD 


69 ,9 


(!7064 


26 


00057 


04975 


02570 




TF 


ZLDCA,ASBDCF 



ADJUST P AND Q RELOCATABLE ADDRESSES 



KEhLaCE KELBEG WIT.-I rCeLBEb + SiJb Lci. 



i 
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LOCTN 


OP 


P/L 




PG/LN 


LABEt 


MNEM 


OPERANDS AND REMARKS 


07076 


16 


00042 


«7096 


02580 




TFM 


ZLDBR,FTASB2 


07088 


49 


00000 




02590 




B7 





07096 


27 


05096 


05095 


02600 


FTASB2 


BT 


R0WCK,R0WCK-1 


07108 


26 


00879 


07569 


02610 




TF 


COMBEG,FCTEND 


07120 


26 


00855 


07564 


02620 




TF 


BSTBG,STBEG 


07132 


26 


00055 


05166 


02630 




TF 


ZLDCA-2,ASBC0N 


07144 


26 


00042 


06927 


02640 




TF , 


ZLDBR, TIGER 


07156 


49 


00012 




02650 




B7 


12 


07164 


39 


07185 


00 100 


02660 


ADDRS 


WATY 


SYSPRB 


07176 


48 


08208 


00000 


02670 


ADDRSl 


H 


CUTER 


07184 








02680 




DORG 


♦-3 


07185 




00022 


X2 


02690 


SYSPRB 


DAC 


22, RENUMBER SYSTEM DRIVE* 


07228 


27 


05108 


05107 


02700 


TYPECK 


BT 


R0MCK+12,R0WCK+11 


07240 


13 


00049 


00050 


02710 


CYLOFL 


MM 


49,50,10 


07252 


11 


00095 


ooeoi 


02720 




AM 


95,1,9 


07264 


26 


07 347 


00049 


02730 




TF 


DUMMY, ZLDSA 


07276 


16 


00049 


eoooo 


02740 




TFM 


ZLDSA,0,7 


07288 


21 


00047 


00095 


02750 




A 


ZLDSA-2,95 


07300 


21 


00047 


00095 


02760 




A 


ZLDSA-2,95 


07312 


34 


00044 


00701 


02770 




K 


ZLDDC, 00701,, SEEK NEXT CYLINDER AFTER QFLO 


07324 


22 


07 347 


00049 


02780 




S 


DUMMY, ZLDSA 


07336 


32 


07345 


00000 


02790 


YMMUD 


SF 


DUMMY-2 


07347 




00005 




02800 


DUMMY 


DS 


5,YMMUD+11 


07348 


22 


00055 


07347 


02810 




S 


ZLDCA-2, DUMMY 


07360 


44 


00000 


05024 


02820 




BNF 


0,FLAG,, *RUN CYLINDER OVERFLUW 


07372 


21 


00052 


07347 


02830 




A 


ZLDSC, DUMMY, , 'i^CUT CYLINDER OVEkFLOW 


07384 


49 


00000 




02840 




B7 





07392 


47 


05046 


03400 


02850 


PRNTR 


BNI 


PRINT+24, 03400, , *** INSTR MUST BEGIN BETWEEN 404 


07404 


34 


00000 


00971 


02860 




SKIP 


,1 


07407 




00003 


X2 


02870 


EXIT 


DAC 


3,0UT,*-8 


07416 


39 


0502i 


00900 


02880 




PRA 


PRINT-1,,6 


07428 


34 


00000 


00951 


02890 




SPIM 


,1 


07435 




00006 




02900 


NOT 


DC 


6, 555663, *-4 


07440 


42 






02910 




BB2 




07442 




00001 




02920 




DC 


1, ' 


07444 


31 


13008 


04722 


02930 


TYPWR 


TR 


CDBUF+7,B000+1 


07456 


12 


05021 


eoool 


02940 




SM 


PRINT-1,1,7 


07468 


31 


13000 


0502i 


02950 




TR 


CDBUF-1 ,PRINT-1 , 11 


07480 


39 


13001 


00400 


02960 




WACD 


CDBUF 


07494 




00003 




02970 




DC 


3,34' 


07499 




00005 




02980 


MAXLOC 


DC 


5,0 


075 00 


16 


07590 


-3&(>03^ 


.^02990 , 


_ CKOT_ _ 


TFiU 


_ZA+6,603j., CHECK FUR NAME li-. DISK TABLE 


07512 


33 


00099 


00000 


03000 




CF 


99 


07524 


33 


07755 


00000 


03010 




CF 


LSTENT 


07536 


14 


07499 


ooeoo 


03020 




Ci'l 


MAXLOC, 0,9 


7548 


46 


07756 


01200 


03030 




BE 


BB2 


075 60 


16 


07581 


ooeoo 


03040 




TFM 


CNTR, 000, 9 


07572 


11 


07581 


00061 


03050 


CHECK 


AM 


CNTR, 001, 10 


075 81 




00003 




03060 


CNTR 


DS 


3,*- 2 


075 84 


24 


00000 


0042 5 


03070 


ZA 


C 


,NAME 


075 96 


47 


076 76 


01200 


03080 




BNE 


AA 


07608 


26 


04499 


07590 


03090 




TF 


BASE ,ZA+6 


07620 


12 


04499 


60013 


03100 




SM 


BASE, 13, 7 


07632 


26 


06599 


04499 


03110 




TF 


NXM20,BASE 


07644 


11 


06599 


60020 


03120 




AM 


NXM20,20,7 


7 6 5 6 


32 


00099 


00000 


03130 




SF 


99,,, FLAG SET AT 99 IF i-'TRY Ft;l;r'.) 


07668 


49 


077 20 




03140 




B7 


BA 


07676 


24 


07581 


07499 


03150 


AA 


C 


Cf'TR,.CKDT-l 


076 88 


46 


07756 


01300 


03160 




BNL 


BB2 


07700 


11 


07590 


60020 


03170 




AM 


ZA+6,20,7 


07712 


49 


0757 2 




03180 




B7 


CHECK 


07720 


24 


075 81 


07499 


03190 


BA 


C 


CNTR,CKDT-1 


0773 2 


4 7 


07756 
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05426 








1 0082 


26 


005 8© 


00425 


05430 


FCHPC 


TF 


MPINLCNAME ,6 


10094 


26 


A A A A O 

00099 


00580 


05440 




TF 


99,MP1NL0 


10106 


1 1 


A A A A A 


9000 1 


05450 




AM 


99,1,7 


X J. i O 


■A 1 

s X 


A A C\Ci^ 

uuuy?? 


00 564 


05460 




TR 


99, INPUT+159,6 


1 Ml n 
i u i U 


32 


005 8^5 


A A A A A 

00000 


05470 




SF 


NMP2L0 , , 6 


1 U i 1 




A A M A A 




05480 


S UBAR 


DC 


4,5 000 , * 


1 I'll A 9 


9 A 


00037 


047 1 9 


05490 




TF 


ZLDCRD , LDCRD 


i Ui OH 


1 6 


00042 


iO 186 


05500 




TFM 


ZLDBR , RETCOD ,7 


101 66 


26 


00057 


0777 1 


05510 




TF 


ZLDCA ,DTDCF+13 , , 


i U i 1 o 


49 


00000 




05520 




B7 





1 \J 1. oo 


97 


A K r'\ A A 

u _j uy o 


05095 


05530 


RETCOD 


BT 


ROWCK , ROWCK-1 


i U 1 Vo 


1 5 


00025 


A A A A 

00006 


05540 




TDM 


ZLDROW ,6 , , 


1 n o 1 n 
1 U(i iU 


26 


00042 


09925 


05550 




TF 


2L"DBR,PREBEG 


1 9 9 9 
i U ^ £1 


9 A 


0005 7 


1 27 28 


55 60 




TF 


ZLDCA , PREDCF 


1 9 A 


AO 


A f"i / \ A A 

uuuuu 




05570 




B7 





T A 9 A9 


.. 16 


uDu.T?iy, 


_.0.QC14JL 


. . Q518D _ 


J2LSIL _ 


-JEM_. 


_PBJi^lI+2_7.,.4Jx-li}. 


102 54 


3 1 


U0448 


04874 


05590 




TR 


INPUT+43 ,l\IM2ZER-6 


1 A 9 A A 


13 


0044 ( 


00574 


05600 




TMF 


INPUT+42 ,MAX 


10278 


1 7 


05022 


90443 


05610 




BTM 


PRINT , I NPUT+38 


10290 


'Cii 


44 7 


00570 


05620 




TIMF 


rNPUT+42 ,NEXT 


1 U 2 


1 7 


05U22 


90439 


05630 




BTM 


PRINT , INPUT+34 


103 1 4 


16 


07581 


00900 


05640 


DISK2 


TFM 


CNTR,000,9 


1 3 2 6 


24 


075 81 


00574 


05650 


LSTRE 


C 


CNTR,MAX 


1033 H 


46 


10394 


01200 


05660 




BE 


RESTR 


103 5 


1 1 


0758 1 


00901 


05670 




AM 


CNTR,001 ,9 


103 62 


1 7 


05022 


90595 


05680 


NMENT 


BTM 


PRINT, DTNMl ,7 


1 03 74 


1 1 


10373 


90020 


05690 




AM 


NMENT+11 ,20,7, 


103 86 


49 


10326 




05700 




B7 


LSTRE 


1 03 94 


16 


10373 


90595 


05710 


RESTR 


TFM 


NMENT+1 1 ,DTNM1 , 7 


10406 


4 9 


09210 




05720 




B7 


BEG 


104 14 


26 


00570 


00585 


05730 


ACTHLD 


TF 


NEXT ,WMP2L0, 11 


1 042 6 


1 1 


00574 


0090 1 


05740 




AM 


MAX , 1,9 




1 1 


00585 


A O A 

00920 


05750 




AM 


NMP2L0,20,9 


1 r» A K (\ 

X U *T _3 u 


1 1 


0058 


A AZl O A 

00920 


05760 




AM 


MP1NL0,20,9 


1 r"l A A 9 


26 


00586 


04841 


05770 




TF 


MP INL 0,0000+ 10 ,6 


1 1 lA 7 A 


1 A 
X O 


0004 2 


i0494 


05780 




TFM 


zLdbr,callix 


X u^- OO 


49 


07892 




05790 




B7 


RECDTl+12, , , 


\ ()/). 94 


9 7 . 


u_3 uy D 


A A o 
U3Uy D 


A t; a 1 [\ 
UPo lU 


A A 1 1 TV 


BT 


ROWCK ,R0WCK- 1 


10506 


D X 


C\ A A i-' 
U UU DO 


1 9 Q K A 

i <iy Du 


A K ft 9 A 




TR 


38 ,LABINX 


10518 


X 9 


A A A 9 K 


A ^"1 A A A 
UUUUo 


05830 




TDM 


25 , 6 


10 530 


49 


u u u u 




05840 




B7 





1053 8 


36 




AA R A A 
UU 9 UU 


05850 


UUT 


RNCD 





10550 


AO 


UUUUU 




05 860 




B7 













A tl 7 A 
UPO ( U 
















AU D A 

U-3 oou 
















05890 








004 15 




A f 1 A A H 

u u u u o 




A ts O A A 

UaVUU 


C 1 1 D Kt A ft/< 

oUdInAI'i 


DS 


, INrUl +10 


( ) ( ) 4 ]^ g 




Afl ( )A A 
U U U U *T 




A ^ Q 1 A 

u Dy xu 


M Q D 
IMoK 


DS 


A T M Dl IT J. 1 /. 


00423 




A A A A p 
U UU U O 




05920 


IM I D F I L 


DS 


, INrUT + Xo 


00431 




UU UU o 




05930 


LENF I L 


DS 


0,1 NrU 1 +<io 


00439 




u u u u o 




A K AA 

u-?ytu 


T M c r 




0,, I Nr U 1 +3H 






A A A A ft 
UU UU C) 




05950 


TNC 


DS 


8 , INPUT+42 


1 Q o A 

X D V JO 




(t A A A A 
U Ut- U^f- 




05960 


SUBNMS 


DSS 


404 ,-13996 


14007 




UUUU X 




05970 


SUBNMl 


DS 


1 , bUDNMJ>+ 1 1 


14400 




005 20 




05980 


UD 1 AD 


DSS 


520 ,SUBNMS+404 


1 44 3 




00001 




05990 


LNMDAT 


DS 


1 ,SUBTAB+3 


14407 




00001 




06000 


TOTLEN 




i , oUo 1 AD+ ( 


14412 




00001 




06010 


STSCNO 


DS 


1,SUBTAB+12 


14920 




00080 




06020 


SUBBUF 


DSS 


80,14920 


14988 




00005 




06030 


FIRST 


DS 


5,SUBBUF+68 


10558 


72 


00419 


10709 


06040 


SRS 


TNS 


NSR,NSRSTR 


105 70 


16 


10745 


09000 


06050 




TFM 


TND, 6,8 



INVALIP * CARD 

Q ADDRfi'SS = PREBEG 
Q ADDRESS = LIMIT 

STORE DATE INFO 



PROGRAM TO BE CODED ALREADY ON DISK 



CODE 



RECORD MAX+1 DISK TAB ENTRY ON DISK 
FETCH SCAN ROUTINE 



PRINT NAME ( I ) FOR ALL I 



RECORD UPDATED DISK TABLE 



STORE R E L SUBS 



t9 



C40 EXECUTIVE 



JANUARY 20, 1967 



PAGE 



1 nrTM 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


X U -3 


x*t 


1 n7 no 
X U ( uv 


UUUtjU 


06060 




CM 


NSRSTR,0, 10 






A A 

'to 


09210 


01200 


06070 




BE 


BEG 




1 UOUO 


24 


1 07 09 




06080 




C 


NSRSTR,SUBLIM, , 


CHECK NO. SUBS EXCEED LIMIT 


1 nA 1 R 


A 7 


1 n AC; A 
X u O -> u 


A 1 1 A A 

U X X uu 


A AAOA 
UoUvU 




BNH 


SUBl 




10630 


X / 


n 9 9 


iO AA Q 


A A 1 nn 
uoiuu 




R T ^vl 
D 1 rl 


PRINT,TMAYSB,7 




10642 


AQ 


no 9 1 n 

U 7 <i X u 




n A 1 1 n 

U O X X-v 




tt7 
D f 


BEG 




10650 


^A 


04976 


0070 1 


AAi ?n 

uo X aU 


Ql IR1 
o U D X 


1/ 
t\ 


-SUBDCF, 00701, , 


SEEK CYL AND SET UP LD AREA FOR SUB STOI 


10662 


26 


000 37 


047 19 


06130 




jp 


ZLDCRD,LDCRD 




10674 


1 A 
X o 


00042 


i08 26 


AAI AA 

uo 1 tu 




T PM 


ZLDBR,CKSB,7 




10686 


26 


0005 7 


04989 


061 50 




T F 


ZL0CA,SUBDCF+13 




10698 




0004 5 


nnftftn 


nAi An 

UOX OU 




<; P 

o r 


ZLDSA-4,,10 




10709 




00002 




AAI 7n 

UO X r U 


Kl C D C T D 


Uo 


2 , *. 




107 10 


16 


11612 


14412 


AAI QA 
UO X OU 




T F M 


T0TAB+6,STSCNO,7, 


INIT OF STMNTS FUR SUB TAB. AND i'JAiit 


10722 


16 


1 1624 


14403 


06190 




T FM 


T0TAB1+6,LNMDAT,7 




1 n7'^/i 

X U ( ^'T 




X xo 


UtJUUU 


06200 






TGTABl+2, ,8 




10745 




nnnn A 




A A 9 1 A 

UOc. xu 


T M n 


Ui 


4,* 




10746 


16 


1 1636 




A A9 9A 
U O A <lU 




T P M 


T0TAB2+6,T0TLEN,7 




1075 8 




1 1 A 9 

1 xo 


uuuuu 


06230 




r c 
Ur 


TOTAB2+2 




1 n77n 

X U f f u 


1 A 


1 1 A A 


iAA A7 

I*^uu I 


06240 




T FM 


T0TAB3+6,SUBNM1 ,7 




1 n7 ft 9 

l\J 1 0£. 


33 


1 1644 


A£i A A A 

uwuuu 


06250 




CF 


T0TAB3+2, ,8 




10793 




00004 




06260 


NCOS 


DS 


4,« 




X u f 


3 1 




048 30 


06270 




TR 


INPUT-1, 0000-1 




1 n w n A 
X u o Uo 


1 A 

xt> 


10009 


AAAia A 


06280 




TFM 


SUBCT,0,10 




108 1 8 


49 


1095 




06290 




87 


RDCDl 




1 n ft 9 A 

X U tj ^ o 


A.7 


1 n W c: ft 


C\'XH AA 


06300 


CKSB 


BN I 


CKSBl ,03800, , 


RETURN PT AFTER SUB TO DISK 


10838 


1 7 


nRn 9 9 


i o C A 1 


06310 




BTM 


PRINT,EXCCYL,7 




1 n Q n 

X U £3 -> u 




AO 9 1 A 




06320 




B7 


BEG 




10858 


27 


05096 


05095 


uo^^u 


r 1/ c Q 1 


RT 


R0WCK,R0WCK-1 




10870 


25 


0006 9 


00009 


06335 




TD 


69 ,9 




10882 


24 


1 07 09 


10009 


06340 


CKSB2 




NSRSTR,SUBCT, , 


CHECK FOR ALL SUBS READ IN 


10894 


47 


10926 


01200 


063 50 




R IMP 


RDCD2 




10906 


34 


04990 


00701 


06360 




1^ 


S8TBDC, 00701, , 


SEEK SUB TABLE CYLINDER 


1 09 1 8 


AQ 


X ^ X X o 




A A It 7 A 
UO J ( u 




R 7 


TB2DSK 




10926 


21 


00049 


10743 


06380 


R DCD2 


/\ 


ZLDSA,TND-2 




10938 


16 


1 1268 


11538 


06390 




TFM 


SUBWNG+6,T0TaB0 




1095 


37 


0040 5 


00500 


06400 


RDCDl 


RAC D 


INPUT, , , 


READ SUB .'.T CARD 


10962 


14 


0040 5 


00013 


06410 




C r'i 


INPUT, 13, 10 




10974 


46 


1 1006 


1200 


06420 




BE 


SUBSZ 




1 n Q ;5 A 

X U V o o 


1 7 
X / 


A c; A 9 9 


J. 9 AQ7 


A A A 1i A 
Uo*f:5U 




R T I^'i 


PRINT,D0LCD,7 




10998 


49 


092 1 








B 7 


BEG 




1 1006 




1000 9 


0006 1 


A AA Rn 
U 0*r 9 U 


C 1 ID C 7 
O U Oo A 


A rl 


SUBCT,1t10 




i J. U 1 o 


A 


1 1 1 A 1 


1 A7Al^ 


/\ / A / A 
UC3461J _ 





T C 

1 r _ 


^4V£aiiD _ ^ 




1103 


1 2 


0043 1 


1 A7 At; 


06470 




T M C 
1 iNb 


LENFIL,TND 




1 lUHC 


1 3 


10/45 


00065 


06480 




H M 


TND,5,10 




11054 


43 


1 1 206 


AAAOO 


06490 




BD 


FINTNS,99 




X X u o o 


7 9 


fin AA 7 


1 A7Q*^ 


A A c; A A 

u o 9 uu 




1 iMO 


TNC ,NCDS 




1 1 n 7 

X X U ( o 


7 9 


AAA "^Q 

UU*T ^7 


1 1 '^79 
X X ^ r 1^ 


A A C\ 1 A 
U O -> X u 




T M Q 
1 INO 


TNSCNSCDS 




11090 


72 


0042 3 


1 1 1 "2 7 


06520 




TNS 


NIOFIL ,NID . 




1 X X U/: 


1 R 

X -5 


11119 
X X X X 


A A A A 
UUUUU 


06530 


L FT J S 


T D M 


LFTJS+10,0 




XXX X'+ 


1 A 
Xo 


AAA 1 ^ 


A A A£JA 

uuuwu 


A A c; A A 




T P M 


INPUT+10,0, 10 




11126 


33 


004 14 


06000 


06550 




CF 


INPUT + 9, ,8 




1113 7 




A A A A /. 
UUUU H 




06560 


N I D 


OS 






11138 


43 


11250 


f\f\/, A A 

UUHUo 


06570 


L FT JUS 


BD 


SBCONl, INPUT+1 




11150 


3 2 


0040 8 


UUUOO 


065 80 




S F 


INPUT+3 




1 1 T A 1 
I X X O X 




A Af^ A A 

U U U U 'I- 




06590 


S AVh 


DS 


4,* 




1116 2 


2 6 


004 1 3 


0041 5 


6600 




T F 


INPUT+8, INPUT+10 




111 7A. 
1 X X / 




1 1 9 9 A 
X X ^ AO 


11119 
X X X X ^ 


06610 




BD 


SBC0N,LFTJS+10 




11186 


1 5 


1111? 


0000 1 


06620 




T D M 


LFTJS+10,1 




11198 


49 


11138 




06630 




B7 


LFTJUS 




11? 06 


7 


050 2? 


12595 


06640 


F I N T M S 


B T M 


PRINT,SBODLI\! 




11218 


49 


09 2 1 () 




06650 




B7 


BEG 




11226 


43 


11250 


00406 


6660 


O U O 1— 't « 


BD 


SBCONl, INPUT+1 




112 38 


X r 


f^K/l 9 9 
U->U 




A A A 7 A 
U OO 1 u 




R T M 


PRINT, SBNMER 




1 1250 


14 


10745 




A A AHn 
U O O OU 


curnNn 

O Dv^Ulx X 


CM 


TND,0,8 




1 1262 


46 


1 1 1 p, 

X X -> X u 


A 1 5 AA 


AAAQA 
UOO 7U 




R P 


SBIWR 




119 7A 


9 A 


1 1 A 1 
X U X 'i- X 


X U 1 *f D 


A A 7 A A 
UO (UU 




r 
L 


SUBAR,TND 




1 1 9 o A 
X X (1 O O 


A A 


X X i J o 


A 1 ^ AA 
U X 3UU 


067 10 




BNL 


RDSBN 




11298 


X f 


AK A 9 9 


T £. I? ^ 1 


n A 7 9 A 
U O 1 A u 




R T M 
D 1 rl 


PRINT,STOBIG 




11310 


49 


092 10 




06 730 




B7 


BEG 






1 7 
1 1 


05022 


J. 9 AA 1 


06740 


S D 1 W R 


B T M 


PRINTjFSBWR 




11330 


49 


f ^ Q 9 1 A 
U 7 ^ X u 




AA7*nA 
UO f OU 




A 7 


BEG 




X X o 


1 A 

xo 


1 r"! A A 7 
lUUU 1 


A AGA A 

UUoUU 


06760 


D A C u M 

K U b B N 


T FM 


CNTCD,0,9 




1 1 K n 

X X J3W 


:i A 


1 AO 9 A 
XM-V (CU 


aac:aa 


A A 7 7 A 
UO 1 1 U 


n nC 1 ID 


RMC D 


SUBBUF,,, 


READ CARDS OF SUB iJ 


1 1 A9 
X X -> o<i 


X IJ 


1- AQ;^ A 




UO 1 OU 




T n M 

1 UrI 


FIRST-4, 1,711 




1 1 7 9 
X X ^ f <^ 




A A A A A 
UUUU 




06790 


N S C U S 


DS 


4,*-l 




1 1 374 


X X 


10007 


0060 1 


AAftAA 
UOOUU 




A 

« rt 


CNTCD,1,9 




1 1386 


^ X 


14 98Q 


14920 


A AO l A 

UO O i u 




T R 


FIRST, SUBBUF, 6, 


STORE SUB INSTKS I rl BUFFER A;U-/> 


1 1 Q ,Q 
X X ^ Vo 


9A 


1 1 -2 7 9 
X X ^ f ^ 


X UUU f 


A A ft 9 A 
UOOaU 




r 
u 


NSCDS,CNTCD 




X X X U 


46 


X X ->-3 u 


mi on 
u X X uu 


A A ft A 
U O O jU 




R M 

D n 


RDSUB 




1 142? 


46 


1 1458 


01 200 


06 840 




B E 


CHEKCD 




11434 


45 


1 1494 


14920 


06850 


TRA IL 


BNR 


GONTN, SUBBUF 




11446 


11 


10007 


ooeoi 


06860 




AM 


CNTCD,1,9 




11458 


24 


10793 


10007 


06870 


CHEKCD 


C 


NCDS,CNTCD 




11470 


47 


11606 


01100 


06880 




BNH 


TOTAB 




11482 


36 


14920 


00500 


06890 




RNCD 


SUBBUF, , , 


READ TRAILER CARDS AND ADJUST FOil Ct.iRt : 


11494 


15 


14920 


00001 


06900 


CONTN 


TDM 


SUBBUF, 1,11 




11506 


25 


14924 


00400 


06910 




TD 


SUBBUF+4,400,6 




11518 


31 


14920 


14925 


06920 




TR 


SUBBUF,SUBBUF+5 
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LOCTN 


OP 


P/L 


~ Q 


PG/LN 


LABEL 


MNEM 


1 1 530 


49 


1 1434 




06930 




B7 ■ 


1 1538 


14 


1 1 1 37 


06000 . 


06940 


TOT ABO 


CM 


1 1550 


46 


11606 


01200 


06950 




BE 


11562 


24 


11161 


11137 


06960 




C 


11574 


46 


11606 


01100 


06970 




BH 


11586 


17 


05022 


i2379 


06980 




BTM 


1 1 598 


49 


09210 




06990 




B7 


11606 


26 


00000 


00049 


07000 


TQTAB 


T F 


11618 


26 


00000 


11137 


07010 


TOTABl 


TF 


11630 


26 


00000 


10745 


07020 


TQTAB2 


TF 


1 1 642 


26 


00000 


00415 


07030 


T0TAB3 


TF 


1 1 654 


16 


1 16 84 


45001 


07040 




TFM 


1 1666 


21 


11684 


10745 


07050 




A 


11678 


25 


15001 


04491 


07060 


SETGM 


TO 


11690 


21 


11648 


12439 


07070 




A 


11702 


1 1 


1G745 


06099 


07080 




AM 


11714 


26 


00052 


10743 


07090 




TF 


11726 


33 


00051 


00000 


07100 




CF 


11738 


15 


00050 


ooooe 


07110 




TDM 


11750 


14 


00052 


ooeoo 


07120 




CM 


11762 


46 


10882 


01200 


07130 




BE 


11774 


16 


11869 


•3:5000 


07140 




TFM 


11786 


16 


11941 


45001 


07150 




TFM 


11798 


16 


11876 


45002 


07160 




TFM 


11810 


16 


1 1948 


45007 


07170 




TFM 


11822 


16 


11912 


45006 


07180 




TFM 


11834 


16 


11984 


45011 


07190 




TFM 


11846 


16 


11881 


60012 


07200 




TFM 


11858 


44 


11930 


00000 


07210 


RELOCP 


BNF 


11870 


32 


00000 


00000 


07220 


FLAGP 


SF 


11881 




0000 5 




07230 


COUNT 


DS 


i i o cs ^ 




11906 


11912 


07240 




BNF 


118 94 


32 


11917 


00000 


07250 




SF 


1 1 906 


12 


00000 


©5000 


07260 


PM5000 


■SM 


11918 


33 


11917 


00000 


07270 




CF 


11930 


44 


12002 


00000 


7280 


R EL oca 


.BNF 


11942 


32 


00000 


00000 


07290 


FLAGQ 


SF ■ 


11954 


44 


1 1 97 8 


11984 


07300 




BNF 


11966 


32 


11989 


00000 


07310 




SF 


11 978 


12 


00000 


95000 


07320 


QM5000 


SM 


11990 


:j :^ 


11989 


00000 


07330 




CF 


12002 . 


24 


1 1_8 8 1 


L37 _ 


Q7340 _ 


-UiCREjL 


_C 


12014 


46 


00012 


01300 


073 50 




BNL 


12026 


1 1 


1 180 1 


60012 


07360 




AH 


12U3H 


11 


11869 


60012 


07370 




Ai-i 


12 0b(i 


1 1 


11941 


60012 


07380 




Al-i 


1. 2 6 2 


11 


11876 


60012 


07390 




AM 


12i)74 


1 1 


1 1948 


60012 


07400 




AM 


1 2Uii6 


1 1 


11912 


60012 


07410 




AM 


12 098 


1 1 


11984 


60012 


07420 




Ai-i 


121 1') 


49 


1 1;,;5 8 




7430 




B7 


12118 


26 


001)5 7 


05003 


07440 


TB20SK 


TF 


12130 


26 


1 39 97 


10709 


07450 




TF 


1 2 142 


16 


00042 


42174 


07460 




TFM . 


12154 


25 


14920 


00403 


07470 




TD 


12166 


49 


00012 




07480 




B7 


12174 


27 


05 096 


05095 


07490 


SBS2CI-i 


BT 


121 86 


26 


0o57 


04964 


07500 




TF 


12198 


16 


00042 


69162 


07510 




TFM 


122 10 


25 


14398 


04651 


07520 




TD 


12222 


25 


14399 


00403 


07530 




TD 


1 22 34 


12 


1 1648 


60009 


07540 




SM 


1224o 




1 164e 


04651 


07550 




TD 


122;j':j 


'■\ 9 


UOOOO 




07560 




8 7 


122 66 


31 


00300 


12284 


07570 


IXOFF 


TK 


122 78 


1 1 


1 2291 


OOOiO 


75 80 




Ai-i 


1230 1 




00012 




0759 




DC 


12302 


16 


00 369 


00008 


07600 




TF1-, 


12314 


49 


OB 34 2 


00000 


07610 




B 


12 326 


49 


1 2346 




07620 




B7 


12334 


60 


12346 


00000 


07630 




BSNX 


1234'-.) 




00001 




07640 




DC 


1 2 3 4 6 


3 1 


00300 


1 2756 


07650 


RESTAD 


TR 


12 3 5 (i 


It) 


0.0 370 


00007 


07660 




TDf-'i 


12 370 


49 


09 15 




07670 




67 


1237 9 




' ) I ) 1 2 


X2 


07680 


HULENT 


DAC 


1243 9 




000 38 




07690 


I NO REM 


DC 


1 2441 




000 14 


X2 


07700 


FSBWR 


DAC 


12469 




000 1 4 


X2 


07710 


TMAYSB 


DAC 


12497 




000 20 


X2 


07720 


DOLCD 


DAC 


1253 7 




00012 


X2 


07730 


STOBIG 


DAC 


12561 




000 17 


X2 


07740 


EXCCYL 


DAC 


12595 




000 15 


X2 


07750 


SBODLN 


DAC 


12625 




00004 


X2 


07760 


TABOUT 


DAC 


12633 




00015 


X2 


07770 


CCERR 


DAC 


12663 




00016 


X2 


07780 


DTFUL 


DAC 


12695 




00004 


X2 


07790 


DAY 


DAC 


12702 




00014 




07800 


DATDCF 


DSC 



OPBRANDg' AND REMARKS 

TRAIL ; 
N ID, 0,8, 
TOTAB 
SAVE,NID 
TOTAB ' 

PRINT,MULENT,7 

-BEG ■ ■■ ' 

rZLDSA,, MAKE ENTRIES TO SUB TABLE 

,NID 

,TND 

,SUBNAH, , SUB NAME TO SUB NAME TABLE 

SETGM+6, 15001 

SETGM+6,TND 

15001, GRPMK 

T0TAB3+6,INCREM 

TND,99,8 

ZLDSC,TND-2 

ZLDSC-1 

Zl:DSC-2,0,ll 

ZL DSC, 0,9 

CKSB2 

REL0CP+11, 15000,7 
RELOCQ+11, 15001,7 
FLAGP+6, 15002,7 
FLAGQ+6, 15007,7 
PM5000+6, 15006,7 
0M5O00+6,15011,7 
COUNT ,12,7 

RELOCQ,,, RELOCATE RELATIVE TO ZERO 

5,FLAGP+11 
*+24,PM5000+6,ll 
PM5000+11 
,5000,7 

PM5000+11 
INCREL 

»+'24,QM5000+6,ll 

QM5000+11 

,5000,7 

QM5000+11 

COU_NTjMJD . 

12 

COUNT ,12,7 
RELOCP+11,12,7 
RELOCQ+11, 12,7 
FLAGP+6, 12, 7 
FLAGO+6,12,7 
PM5000+6,12,7 
QM5000+6,12,7 
RELOCP . 

ZLDCA,SBTBDC + 13, , SET UP FOR KECURU SUB TAISLi: Gi- DISK 
SUBNMS+1 ,NSRSTR 
.ZL06R,SBS2CH,7 
SUBTAB+320,403 
12 

R0WCK,,R0WCK-1 

ZLDCA,fViAMDCF, , SET UP FOR KECORD SUa ilA;-tS 0; i DISiv 

ZLDBR, BEGIN 

SUBNMS+402,DAYRf. 

SUBNMS+403,403 

T0TAB3+6,9,7 

T0TAB3+6,DAYRM,6 



300,IXaFF+lfi 

IXOFF+25,20,10 

12,400031800009 

00369,8,2 

342, ,35 

RESTAD 

RESTAD 

1 , • , * 

300,ADTAB 

370,7 

RESBEG 

12, WRONG ENTRY' 

38,13000000000013000000000013000000000010 

14, 1ST SUB WRONG' 

14, TOO MANY SUBS' 

20,$ CARD NOT IN PLACE' 

12.,SUB TOO BIG' 

17, SUB CYL EXCEEDED' 

15, SUB ODD LENGTH* 

4, DISK 

15, INVALID * CARD' 
16, DISK TABLE FULL' 
4, DATE 

14,07984400204500 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


M M EM 


12728 




00013 




07810 


PREDCF 


OG- 


12731 




00013 


X2 


07820 


SBNMER 


DAC 


12756 




00050 




07830 


A OTA 8 


QSC 


12806 




00021 




07840 


ADTAB2 


DSC 


12826 




00000 




07850 


ENDTAB 


DS 


12829 




00037 


X2 


07860 


F ixeuT 


DAC 


12903 




00024 


X2 


07870 


CTHER 


DAC ■ 


12950 




00021 




07880 


LABINX 


DSC 


12982 








07890 




DORG 


12982 


49 


12266 


00000 


07900 




B 


12990 








07910 




DORG 


12994 




00005 


69162 


07920 




DSA 


12999 




00005 


99266 








13000 








07930 




DORG 


00185 




00005 




07940 


UB 


DS 


13001 




00001 


X2 


07950 


CDBUF 


DAS 










07960 














07970 














07980 






13000 


34 


00000 


00102 


07990 


INITL 


RCTY 


13012 


39 


13769 


00100 


08000 




WATY 


13024 


36 


13002 


00100 


08010 




RNTY 


13036 


43 


13388 


13002 ■ 


08020 




BD 


13048 


43 


13284 


00182 


08030 




BD 


13060 


34 


00000 


00102 


08040 


TRIAGN 


RCTY 


13072 


39 


135 97 


00100 


08050 




WATY 


13084 


34 


00000 


00102 


08060 




RCTY 


13096 


36 


00566 


00100 


08070 




RNTY 


13108 


32 


00566 


00000 


08080 


PRO 


SF 


13119 




00005 




08090 


PRGAR 


DS 


13120 


14 


00570 


61000 


08100 




CM 


13132 


46 


13180 


01300 


08110 




BNL 


13144 


34 


00000 


00102 


08120 




RCTY 


13156 


39 


13667 


00100 


08130 




WATY 


13168 


49 


13060 


00000 


08140 




B 


13180 


14 


00570 


?9000 


08150 


CHKUPR 


CM 


13192 


47 


13240 


01100 


08160 




BNH 


13204 


34 


00000 


00102 


08170 




RCTY 


13216 


39 


13705 


00100 


08180 




WATY 


13228 


49 


13060 


00000 


08190 




B 


13240 


26 


13119 


00570 


08200 


FIXUB 


TF 


13252 


12 


13119 


60000 


08210 




SM 


13264 


26 ' 


00185 


13119 


08220 




fF " 


13276 


49 


13308 




08230 




B7 


13284 


16 


00570 


60000 


08240 


TWODRS 


TFM 


13296 


16 


00185 


20000 


08250 




TFM 


13308 


25 


00571 


04491 


08260 


ONE 


TO 


1332 


26 


00590 


00570 


82 70 




TF 


13332 


16 


00574 


ooeoo 


08280 




TFM 


13344 


25 


00575 


12826 


08290 




TD 


13356 


26 


00603 


04841 


08300 




TF 


13363 


26 


00223 


13767 


8 310 




TF 


13380 


49 


13468 




08320 




B7 


13388 


25 


13744 


00401 


08330 


LATLD 


TD 


13400 


36 


13744 


00702 


08340 




RW 


13412 


12 


18790 


60000 


08350 




SM 


13424 


46 


13456 


01200 


08360 




BZ 


13436 


26 


0018 5 


18790 


83 70 




TF 


13448 


49 


13468 




08380 




B7 


13466 


16 


00185 


20000 


08390 


LATLD2 


TFM 


1346 8 


25 


08787 


00400 


8400 


LATLDl 


TO 


1348 


12 


08791 


69074 


8410 




S i-i 


13492 


11 


0878 8 


OOOiO 


08420 




Ai'i 


13 504 


25 


U57 9y 


00400 


0ci430 




TU 


13516 


25 


12702 


00401 


08440 




TD 


13 528 


25 


07750 


00401 


08450 




TO 


13540 


25 


04726 


00401 


08460 




To 


13 552 


25 


04976 


00401 


08470 




TD 


13564 


25 


0499 


00401 


08480 




TO 


13:376 


25 


12956 


00401 


08490 




TO 


1358;.! 


49 


18 000 




08500 




B7 


135 97 




000 35 


X2 


08510 


INN EXT 


DaC 


13667 




00019 


X2 


08520 


TDLO 


DAC 


13705 




000 20 


X2 


08530 


TOHI 


DAC 


13744 




00014 




08540 


GETUB 


DSC 


13 767 




00010 




08550 


LDONE 


DC 


13769 




00047 


X2 


08560 


URORLT 


DAC 


18 000 








08570 




DORG 


18000 


25 


00210 


00401 


08580 




TD 


18012 


32 


00000 


00000 


08590 




SF 


18024 


38 


00210 


00702 


08600 


LDSYS 


WN 


18036 


36 


00210 


00703 


08610 




RN 


18048 


47 


18136 


03900 


08620 




BNI 


18060 


44 


18092 


00000 


08630 




BNF 


18072 


33 


00000 


00000 


08640 




CF 


18 084 


49 


18024 




08650 




B7 


18092 


34 


00000 


00102 


08660 


LOERR 


RCTY 


18104 


39 


18169 


00100 


08670 




WATY 



OPERANDS AMD REMARKS 

13.,'7^60004400592 
13, SUB NAME ERR' 

50, 0123456789123456789-23456789- J3456789-JK4567 8 9- JKL 

21, 56789- JKLM6789-JKLHN' 

rADTAB2+20 

37fCUT HDWR ERR-PROGRAMS ON FILE FOLLOW 

24yR€L0AD C4D-INITIAL LOAD" 

21 ,00424007912507500424 ' 

12982 . 

IXOFF 

12990 

BEGIN, FROMER 

13 000 
5,185 
1,13001 

S Y S T E i'i L A D 



ORORLT 
rNITL+2 
LATLD, INITL+2 
TWODRS, 182 

INNEXT 

NEXT-4 
NEXT-4 
5,PRG+11 
NEXT, 61000, 7 

CHKUPR 

TOLO 
TRIAGiM 

NEXT, 79000, 7 
FIXUB 

TOHI 
TRIAGN 
PRGAR , NEXT 
_PRGAR,60000,7 

UB , PRGAR " ' " ' ' " 

ONE 

NEXT ,60000,7 

UB ,20000,7 

NEXT+1,GRPMK 

NSUBl ,f-EXT 

MAX, 0,9 

MAX+1 , ENDTAB 

603 ,0000+10 

223,Ll)GNE 

LATLDl 

GETUB, 401 

GETUB, 702 

18790,60000 

LATLD2 

185,18790 

LATLDl 

185,20000 

TFSK+7,400 

TFSK+1 1 ,BUFBEG 

TFSK+8,10,10 

DUBFIN+7,400 

DATDCF,401 

DTDCF,401 

DRIVE, 401 

SUI;L)CF,401 

SBTBDC,401 

LABIi'^iX+6,401 

18 000 

35,Eh'TER PROGRAii STORAGE START SECTUR' 

19, TOO LOW, TRY AGAH-' 

20, TOO HIGH, TRY AGAIi:' 
14,07980400118700 

10 ,0412500500 

47, ENTER DIGIT IF INITIAL LOAD, 1 IF LATER LLjad' 

18000 

210,401 

- 

210,702 • 

210,703 

NXTLD, 03900 

LDERRjO 

. 

LDSYS 

LDERMS 
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LQCTN 


OP 


P/L 


Q 


18116 


48 


00000 


00000 


18128 


49 


18116 




18136 


31 


00200 


18192 


18148 


25 


00080 


00231 


18160 


49 


00200 




18169 




00012 


X2 


18192 




00032 




13000 









PG/LN 


LABEL 


MNEM 


nPPRAMD^ AWn RPMAOVQ 
u r c rvHIVU'o MlviU r\Cl tAKl\o 


08680 


STOP 


H ■ 




08690 




B7 


STOP 


08700 


NXTLD 


TR 


200,iQADR 


08710 




TD 


80,231 


8720 




87 


200 


08730 


LDERMS 


DAC 


12, LD HDWR ERR' 


08740 


LOADR 


DSC ■ 


32,360000000500310000R00010490O20O 


08750 




□ END 


INITL 
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04240 


AASCN 


01710 






04280 


ABGPR 


02230 






04270 


ABGSG 


02270 






04260 


ABGTR 


02310 






04220 


ACFMT 


00730 


00740 




04230 


AGIO 


00770 






043OO 


ACLSG 


02400 






04200 


ACMT 


00880 






04320 


ACNTL 


02560 






04310 


ACNTU 


02480 






04290 


ACOMN 


02520 






04330 


ADIM 


03110 






04340 


ADO 


01630 






04380 


AEDPR 


02860 






04370 


AEDSG 


02760 






04360 


AEDTR 


02720 






04350 


AEND 


01370 


02640 




04390 


AEXPR 


02820 






04210 


AFMT 


01250 






04400 


AGO 


02130 






04250 


AIF 


02070 






04410 


APAUS 


03210 






04430 


APCH 


03290 






04420 


APRNT 


03250 






04440 


ARD 


03430 






04450 


ARERD 


03390 






04460 


ARETN 


03470 






04470 


ASEG 


02990 






04480 


ASTOP 


02950 






04490 


ATYP 


03050 






01570 


Al 


01300 


01510 




01690 


A2 


01540 


01580 




01770 


A3 


01410 


01660 


01700 


03890 


CAL 


00260 


03770 




03970 


CALL 


03880 


03890 




04570 


CASCN 


01720 






04610 


CBGPR 


02240 






04600 


CBGSG 


02280 






04590 


CBGTR 


02320 






04550 


CCFMT 


00750 






04560 


CCIO 


00780 






04630 


CCLSG 


02410 






04530 


CCMT 


00890 






04650 


CCNTL 


02570 






04640 


CCNTU 


02490 






04620 


CCOMN 


02530 






04830 


COATA 


01380 






04660 


CDIM 


03120 






04670 


CDO 


01640 






04710 


CEDPR 


02870 






04700 


CEDSG 


02770 






04690 


CEOTR 


02730 






04680 


CEND 


02650 






04720 


CEXPR 


02830 






01200 


CFL 


01120 


01190 


01230 


04540 


CFMT 


01260 






01140 


CFRT 


00980 






04730 


CGO 


02140 






00170 


CHI 


00180 


00230 


00250 






01340 


01440 


01450 


04580 


C IF 


02080 






01820 


CKBL 


00990 


01030 


01780 


00860 


CKCM 








00580 


CKCON 


00510 


00560 




01040 


CKD 


00960 






01060 


CKDT 


01040 






01910 


CKH 


01390 


01830 


02000 


00470 


CKL 


00410 


00540 


00570 


01500 


CKLP 


01330 


01360 


01470 


00560 


CKRM 


00500 






00880 


CMNT 


00630 






01090 


CMP 


01020 


01080 


01100 


01300 


CMPRS 


01000 


01070 


01150 


04160 


CQMPA 


00750 


00780 


00890 






02570 


02650 


02730 






03480 


03510 




03630 


COUNT 


00310 


00350 


00370 


04740 


CPAUS 


03220 






04760 


CPCH 


03300 






04750 


CPRNT 


03260 






04770 


CRD 


03440 






04780 


CRERD 


03400 






04790 


CRETN 


03480 






04800 


CSEG 


03000 






00910 


CSTN 


00870 






04810 


CSTOP 


02960 






04820 


CTYP 


03060 






00990 


CI 


01050 






04090 


DATA 


01280 






04020 


DCF 


00120 


03640 


03660 


04010 


DCFDG 


00140 
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04060 
04150 



04510 
03750 
04500 
00930 
00420 
04080 
01950 
03810 
04100 
04130 
00840 



02170 
02350 
03090 
02600 
02110 
02050 
03150 
03330 
02900 
03030 
04140 
01460 
00820 
04110 
03520 
03780 
03910 
01660 
01370 
01400 
00340 
01630 
00190 
01330 
00260 
03580 
04120 
04170 
03490 

01510 
01480 
01830 
00370 
01470 
00530 
00490 
03640 
01850 

03660 
03830 



DCFEX 
DIAGA 



ECNST 

ENDSW 

ERCON 

ERCST 

EXENAB 

FORMT 

HCT 

HDWRE 

HERR 

INC 

INIT 



ISB 

ISC 

ISO 

ISE 

ISG 

ISITI 

ISP 

ISR 

ISS 

1ST 

LAD 

LPC 

LPl 

NENM 

PAR 

ROCK 

ROCKl 

SA3 

SDAT 

SDl 

SETSQ 

SIO 

SQN 

SSWD 

START 

STCM 

STER 

STNSW 

ST ST 

SWA 

SWB 

SWC 

SWCS 

SWD 

TEST 

TL 

TMXDK 
TR 

WIJK 
WEM 



01940 
03650 

01160 
00820 
02620 



02180 



01970 01980 02000 



01460 
00830 
02630 



02010 

00950 01340 02050 02110 
02690 02800 02900 02920 



02170 02190 02200 02350 02370 02380 02440 02450 
02930 03030 03090 03150 03170 03180 03330 03350 



01670 01740 01800 01890 01920 01960 01990 02040 



00130 00420 03880 

00690 00730 00740 00770 00880 00930 01250 01370 01630 01710 02070 02130 02230 02270 02310 

02400 02480 02520 02560 02640 02720 02760 02820 02860 02950 02990 03050 03110 03210 03250 

03290 03390 03430 03470 

00930 

02660 

00690 

03340 

01240 
01930 
00440 
03800 
OHIO 
00810 
02600 
03360 
02120 
01600 
03040 
02360 
02060 
01310 
03100 
03160 
02610 
02910 
00640 
00790 
00640 
00430 
00390 
00230 
03790 
01530 
01290 
00800 
00300 
01590 
03620 
01420 
00320 
00900 
03830 
00380 
00700 
02670 
01300 
01000 
00790 
00320 
00990 
00480 
00470 
00150 
01010 
01860 
03700 
00430 



00670 
01010 
00850 

01520 
03700 



03580 
01130 



01790 
03730 



03590 03610 

01180 01320 01350 01550 



03490 
03950 



01610 01750 



00340 



00340 
00940 

00970 
00760 
02740 
01410 
01310 
00980 
00330 
01330 
00500 
00520 

01060 
01910 



00590 
03560 



01270 
02780 
01540 
01400 
01040 
00360 

00510 
00580 

01090 
01930 



03750 



01400 01650 01730 02090 
02840 02880 02970 03010 
01660 01740 

01530 01590 01600 01650 01730 
01080 01170 01320 01390 



02150 02250 02290 02330 02420 02500 02540 02580 
03070 03130 03230 03270 03310 03410 03450 



00560 

00600 00610 00910 01870 

OHIO 01140 01160 01350 
02010 



01880 03530 03570 03580 03600 

01460 01470 01500 01570 01690 01770 01820 01840 



03800 03850 03860 
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LQCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 












00000 


«* 


FORTRAN STATEMENT SCAN 


12/6/66 










00010 


* 


CARD 


INPUT 
















00020 


* 


•» 


CONTROL 




CARD CALLS EXECUTIVE 










00030 




LAO —ZONE 


AODR OF BLANK AFTER STATEMENT 










00040 


* 


DIAGA — 


ENTRY FOR DIAGNOSTICIAN 










00050 




COMPA — 


ENTRY FOR COMPILER 










00060 


« 


STNSW 


SET J FOR NUMBERED STATEMENT 










00070 




LAD-3 -- 


FLAGGED IF CONTINUATION REQO 










00080 


•» 


COMPA-1 


FLAGGED IF PAR 


UNBALANCE 










00090 


» 






(NOT ON FORMATS) 










00100 














00404 








00110 




DORG 


404 








00404 


25 


04454 


00402 


00120 




TD 


DCF 




,402 




00416 


25 


044 75 


00401 


00130 




TD 


DCFEX+2 




,401 




00428 


25 


04438 


00401 


00140 




TD 


DCFDG-14 


,401 




00440 


21 


04021 


00185 


00150 




A 


TMXDK+11 


,185 




00452 


49 


18012 




00160 
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08140 


CLSGP 


08130 


08130 


CLSGl 


08380 


01220 


CLSNO 


01260 


12190 


CMPR 


12130 


14590 


CMTST 


14540 


11750 


CNTRS 


11600 


14100 


COMMON 


00180 


06900 


COMPAR 


03160 


02590 


COMPEQ 


02775 


06930 


COMPR 


06900 


02790 


COMPl 


02660 


14500 


COM3 


14330 


03006 


CONTER 


00390 


05020 


CONTIO 




05540 


CONTST 


05140 


12740 


COOL 


13060 


06030 


C0TST2 


06070 


01890 


CRDl 


15150 


13260 


CREEP 


13150 


01810 


CRM I 


01790 


01770 


CRMIO 


01760 


00660 


CSYMTl 


00670 


00620 


CSYMT9 


00630 


16520 


CUDFF 


16500 


05790 


CUIO 


05750 


14920 


CZ 


15190 


01200 


CZERO 


01280 


00640 


CZl 


14960 


07860 


CZIO 


15020 


08030 


CZll 


15030 


08180 


CZ12 


15040 


08580 


CZ13 


15050 


00680 


CZ2 


14970 


00720 


CZ3 


14980 


01370 


CZ4 


14990 


02340 


CZ5 


15000 


15900 


CZ6 


15830 


15950 


CZ7 


15840 



01570 02320 02440 02710 03090 03120 05270 05960 06280 06310 06600 06610 06670 06730 
07000 07150 07280 07840 07990 08140 08550 09830 09960 09970 10460 10480 10650 10660 
10680 10690 11340 12030 12970 13960 14280 14690 14740 16470 
07480 15230 

06490 06520 06580 06900 07180 07230 07330 15530 15640 15790 15940 
09850 10500 10510 10560 10630 10770 10780 10810 



12640 12660 12680 12960 13010 13020 13040 

10450 10590 

16280 

06410 06710 06780 06790 06810 06870 06890 07380 07450 

01490 

12750 

16550 16920 
06300 06310 06320 
14470 14490 



01220 02170 02870 03250 07790 07950 08270 08340 08450 08750 09960 15250 15450 

09260 09270 09280 

01830 01850 01860 01870 01880 



08110 08470 
12140 12270 

11740 12100 12140 12180 12230 
06370 

01000 
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14730 


CZ8 


15010 












16130 


C4D1 


16110 












16230 


DATA 


15870 


15874 


15876 








16150 


DCCOMP 


15820 


16070 










00470 


DCEXEC 


00040 


00520 










00790 


DCF 


00770 


07500 


07524 


14920 






07460 


DCPT2 


07504 


14950 










15110 


DCSUBS 


14940 


15080 










11000 


DCl 


12540 


12630 


13050 








13050 


DECC NT 


12820 












14020 


D IMENS 


00220 












10850 


DIMFLG 


08890 


10850 


14300 








02 150 


DO 


00230 












o o o o n 


DOCN T 


021 50 


02670 


02810 


02820 






02890 


DOENO 














02930 


DOENDl 


02070 


02900 










09 140 


DONE 


09610 


09630 


09930 








16170 


DOXXX 


15330 












16240 


DTFLG 


16240 


16270 


16300 


16400 


16670 




03610 


EDIT 


03450 


03610 


03640 


03660 


03670 


03680 


03640 


EDITl 


03630 


03700 


03710 


03720 






03730 


EDIT2 


03440 


03460 


03470 


03620 


03630 


03650 


02050 


END 


00200 


00210 


04360 


04510 


04690 


04800 






07930 


08050 


08090 


08210 


08290 


08430 


16280 


ENDATA 


16340 


16830 


16850 


16870 


16900 




08300 


ENDPR 


00270 












08320 


ENDPRP 


08310 












08220 


ENDSG 


00260 












08250 


ENDSGP 


08240 












08280 


ENDTR 


00250 


08350 










14440 


ENDl 


14160 


14520 


14600 


14670 






13570 


END2 


00370 


08 190 


13430 


13650 






07300 


E QUAL 


07170 












00480 


ERR 


01910 












01710 


E RROR 


1640 


01710 


1720 


02040 


02310 


02960 






09370 


09500 


095 10 


100 10 


10020 


10610 


01 750 


E RROR 1 


1660 












01 640 


ERR0R9 


01140 


01240 


01440 


01610 


01650 


01650 






03270 


04080 


04990 


05150 


05420 


05620 






11 100 


11380 


11940 


12090 


12520 


12722 






16840 


16860 


16890 


16910 






08690 


ERR3 


08080 


08670 










05420 


ER31 


05470 












08360 


EXCPR 


00280 


08 190 


08200 


08370 






07920 


E 1 


07800 


07960 


08260 


08330 


08420 




02310 


ElO 


02270 


02430 


02510 


02600 


02640 


02680 


09500 


Ell 


09390 


09480 


09700 


09720 






08930 


E12 


09040 


09170 


09530 


09620 


10950 




10010 


E 13 


10080 


10200 


10230 


10330 


1 0360 


10390 


07720 


E15 


07740 


07760 


07770 


08490 


08530 


08540 


10610 


E16 


10430 












02540 


E 18 


02460 












13120 


E20 


00400 


04790 


13180 








14260 


E22 


14110 












16910 


E24 


16380 












10870 


E27 


09890 


10840 










06120 


E28 


06090 












03410 


£29 


03520 


03570 


03840 


03940 


04230 


04400 


01440 


E3 


01420 












11040 


E30 


1 1060 
1 2910 


11470 


11480 


11620 


1 1720 


12290 


11110 


E3 1 


11180 


11200 


11220 


12000 


12760 




16840 


E31D 


16490 












07440 


E32B 


07420 












12520 


E33 


11820 












16890 


E3 3D 


16800 












12722 


E33T 


1 2692 












16860 


E34 


16610 












13560 


E36 


13350 


13360 


13380 


13420 


135 00 


13520 


14150 


E37 


14190 


14500 


14550 


14620 






14660 


E38 


14320 












07880 


E4 


07910 


08470 










16820 


E400 


16370 












16330 


E41 


16270 


16430 


16570 


16710 


16730 


16780 


14430 


E42 


14380 


14390 










03760 


E4 3 


04250 


04310 


04540 


04570 


04630 




1 0650 


FFNC 


09330 












10690 


FF 1 


10670 


10710 


10740 


10760 






1 0680 


FF2 


10660 


10720 


10730 








10740 


FF 3 


10700 












15960 


FIB 


15910 












06780 


FIN 


06680 












16030 


F INA 


15970 












02 190 


F IND 


02160 


02230 


02240 


02280 


02390 


02400 


15820 


F IN I SH 


07530 












15860 


F INS I 


16220 


16280 










14510 


F INUP 


14420 












07330 


FIX 


07310 












07360 


F IXR 


07330 












00730 


FLAG 


01980 


15340 


15430 


16110 






04520 


FMATA 


04210 













13600 
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04640 


FMATET 


04050 


04680 




04670 


FMATE2 


03880 






04370 


FMATF 


04130 


04170 




04430 


FMATF2 


04410 






04250 


FMATH 


04110 






04700 


FMATI 


04150 






04470 


FMATR 


04590 


04750 


04780 


03850 


FMATRP 


03600 


03960 


04240 


04000 


FMATSZ 


04020 


04060 


04090 


04040 


FMATTC 


03900 






04760 


FMATX 


04190 






03310 


FMATI 


03280 


03321 


03323 


03380 


FMATIX 


03430 


03530 




03420 


FMAT2 


03290 


03300 


03320 


03450 


FMAT3 


03340 






03590 


FMAT4 


03550 






12510 


FMOD 


11810 






12721 


FMODl 


12691 






03350 


FORMA 


03532 


03534 




02880 


FPROC 


02700 






03249 


FRMT 


00100 






02290 


FST 


02200 






09870 


FUDGE 


10590 






09060 


FXD 


09020 






16350 


FXLC 


16320 


16350 


16800 


10460 


FXTEST 


10440 






15360 


GL 


15510 






15380 


GLIO 


15540 






15370 


GL9 


15310 


15530 




09120 


GOBK 


09550 


09800 


10970 


09200 


GONE 


09380 


10860 


10940 


10910 


GONE 1 


10880 






13610 


GOTO 


00290 






14000 


GOTOE 


13770 






13960 


GOTOJ 


13940 






13700 


GOTOX 


13670 


13810 




15640 


GSN 


15400 


15520 


15560 


15670 


GSNR 


15640 


15660 




14210 


GTLB 


14180 






04600 


HERE 


04480 






00490 


HERR 


00500 


00510 




02400 


HOE 


02530 






16690 


HOLCCN 


16620 


16630 


16640 


00500 


HWERR 


15180 






13090 


IF 


00140 


13220 


13270 


10170 


INCR 


10120 


10140 




00020 


INPUT 


00940 


00960 


01000 






02160 


03230 


03280 






07620 


07640 


07660 






13100 


13440 


13610 






15690 


15720 


15750 


09810 


INTA 


09470 






04990 


lOBl 


05040 


05070 


05080 


05130 


lODX 


05000 


05100 




05012 


lODl 


05020 


05550 




05230 


lOE 


05014 






05630 


lOF 


05660 






05490 


lOG 


05340 


05410 


05430 


05580 


lUH 


05490 


05690 


06170 


05440 


lOI 


05350 






05340 


lOI A 


05310 






05710 


ION 


05330 






06000 


lONA 


05950 






05880 


lONB 


06040 






04890 


lOPROC 


03016 


05024 


05110 


05820 


1018 


05770 






05840 


1028 


05720 


05860 


05920 


05960 


IQ28U 


05940 






05970 


I028UE 


05870 


06000 


06080 


11440 


ISE 


11130 






02320 


ISNU 


02300 






10950 


ISNUM 


09770 






06180 


JNPT 


06140 






06060 


Jl 


06010 






15750 


JIO 


15730 


16200 




15320 


Jll 


15320 


15360 


15510 


15920 


J12 


15900 






16050 


J13 


15310 


15500 


16030 


08950 


J15 


08920 






09160 


J16 


09140 






09180 


J17 


09150 






06130 


J2 


06110 






06160 


J3 


06200 






06580 


J4 


06 560 






06 720 


J4R 


06580 






06820 


J5 


06800 






15550 


J8 


15390 






15590 


J9 


15410 


15550 




15760 


J90 


15710 


15770 




15730 


J91 


16190 






15740 


J912 


16210 







04330 04350 04610 04650 

03330 03350 03380 03380 03390 03400 03450 03480 03510 03540 03560 
03360 03370 03490 03500 



16880 



15570 



16650 



01160 01820 01830 01840 01840 01870 01910 01930 01940 01970 01990 01990 

03290 03300 03310 03420 03420 03594 03820 04790 04810 04830 04850 07540 

07810 07970 08120 08230 0B300 08360 08390 08480 08500 11020 11050 11070 

14020 14040 14100 15250 15270 15290 15300 15330 15420 15450 15470 15490 

15790 15860 15872 15876 16230 



05530 



05120 05260 05500 05570 05600 05670 05700 05850 06210 07570 

05930 06020 06150 

06100 



16050 
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11190 


Kl 


11170 






12130 


KIO 


12110 






12240 


Kll 


12210 


12220 


12300 


12430 


K12 


12410 






12730 


K14 


12710 






12970 


K15 


12950 






13140 


K16 


13110 






13190 


K17 


13170 






11210 


K2 


11190 






11270 


K3 


11250 






11250 


K31 


11210 






11320 


K32 


11300 






11460 


K5 


11440 






11630 


K6 


11610 






11950 


K7 


11930 






11970 


K8 


12530 






12010 


K9 


11970 


11990 




08720 


LABEL 


01330 


01340 


02170 






07990 


08000 


08140 






12030 


12970 


13960 


08750 


LBPROC 


01290 


02410 


02590 






03870 


03890 


03910 






04260 


04290 


04300 






04520 


04530 


04550 






04830 


04850 


04890 






05320 


05490 


05540 






06040 


06060 


06130 






08 300 


08360 


08390 






09110 


09120 


09130 






10050 


10150 


10260 






11290 


11320 


11450 






12190 


12240 


12280 






12686 


12740 


12770 






13160 


13170 


13190 






13610 


13620 


13660 






14000 


14040 


14100 






16230 


16250 


16260 






16740 


16760 


16770 


10770 


LUSUB 


10750 






12280 


L24 


11480 


12200 


13430 


12330 


L241 


12300 






04090 


MLM 


04070 






04060 


MLMl 


03980 






11820 


MODE 


11580 


11900 


11910 


16300 


MOONl 


16260 


16450 




16270 


MOON 2 


16460 






06880 


MOVE 


06820 


06830 


06840 


08790 


NCHAR 


08760 


09160 


09180 


08850 


NCHARl 


09950 


10090 


10170 


14080 


NDS 


14050 


14400 


14410 


03060 


NEDO 


03020 






01030 


NESM 


00760 


01510 


03030 


11010 


NEXP 


11570 


11740 


12100 


12030 


NNM 


12010 






07280 


NOFLG 


07130 






14690 


NONAME 


05090 


13390 


13760 


02710 


NONN 


02650 






15150 


NOPRTR 


14910 






02990 


NOTYPl 


02970 






03820 


N02 


03590 






14370 


N024 


14650 






01180 


N03A 


01210 






01270 


N03B 


01190 






01240 


N03C 


00970 


01310 


01320 


01450 


N03E 


01390 


01430 




01610 


N03F 


01540 






14650 


N048 


142 30 






05380 


NP 


04880 


04950 


05016 


03531 


NPF 


03322 






03014 


NPFR 


03249 


03531 


03533 


03533 


NPFS 


03324 






16190 


NPRT2 


15850 






10410 


NS 


10270 






00830 


NSEEK 


00840 


02990 


03012 


13470 


NSN 


13090 


13410 


13490 


14790 


NSRS 


15130 






08820 


NSUB 


09920 


10410 


10420 


12100 


NTST 


12020 


12070 


12080 


05030 


NTST5 


05010 






16720 


NUMBl 


16590 






10240 


0FF29 


10210 






12260 


0FF64 


12170 






13490 


DOT 


13400 






08100 


OPPROC 


07950 


08000 


08320 


08710 


OPSEG 


07790 


07830 


08250 


10560 


OPTBLC 


10510 






10630 


OTLU 


09850 






06380 


OUTTLU 


07070 


07370 




04790 


PAUSE 


00300 






12650 


PL 


12620 






12706 


PL12 


12688 


12721 


12723 



12310 



02180 


02260 


02290 


02320 


02380 


02440 


08250 


08320 


08410 


08550 


08750 


09100 


14280 


14690 


15380 


15390 


15590 


15600 


02610 


02620 


02620 


02660 


02790 


02840 


03930 


03950 


03970 


04010 


04040 


04100 


04320 


04340 


04350 


04370 


04380 


04380 


04560 


04580 


04600 


04620 


04640 


04670 


05012 


05018 


05020 


05030 


05050 


05050 


05550 


05580 


05630 


05650 


05660 


05680 


06160 


06190 


06200 


07540 


07710 


07730 


08500 


08510 


08510 


08600 


08620 


08630 


09400 


09420 


09440 


09560 


09580 


09600 


10280 


10300 


10320 


10340 


10350 


10370 


11460 


11590 


11610 


11630 


11650 


11670 


12330 


12350 


12370 


12400 


12410 


12430 


12790 


12810 


12830 


12850 


12870 


12890 


13210 


13240 


13260 


13280 


13310 


13330 


13690 


13700 


13700 


13780 


13800 


13820 


14140 


14170 


14200 


14210 


14210 


14350 


16310 


16310 


16390 


16420 


16440 


16450 


16770 












11930 


11950 


12150 


12510 


12692 


12721 


06850 












09750 


09760 


13370 


13740 






10190 


10220 










14560 












03150 












12160 


12470 


12480 








14750 


14770 










05710 


06180 










03535 












03271 


03537 


04970 








13530 












12250 


12550 


12580 








08340 


08410 










08270 


08450 











02550 


02710 


05270 


05960 


07830 


07840 


09240 


09270 


09820 


09830 


10650 


11340 


16470 












02850 


03230 


03594 


03820 


03830 


03850 


04120 


04140 


04160 


04180 


04200 


04220 


04430 


04440 


04460 


04470 


04490 


04500 


04680 


04700 


04710 


04710 


04760 


04810 


05100 


05130 


05230 


05230 


05290 


05300 


05690 


05880 


05890 


05890 


06010 


06030 


07730 


07740 


07810 


07970 


08120 


08230 


08920 


08950 


08970 


08990 


09010 


09030 


09660 


09690 


09790 


09990 


10000 


10030 


11070 


11140 


11150 


11150 


11250 


11270 


11690 


11710 


11770 


11770 


11980 


12110 


12570 


12590 


12610 


12650 


12670 


12686 


12900 


12920 


12940 


13100 


13110 


13140 


13330 


13400 


13440 


13510 


13540 


13550 


13850 


13860 


13880 


13900 


13910 


13910 


14510 


14530 


14580 


14590 


14610 


14630 


16555 


16600 


16630 


16660 


16700 


16720 
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09560 


PMTEST 


09450 








13550 


PNUM 


13200 








1 3280 


PNI IMT 










13330 


PNUM2 










1 970 


P R A 1 










02660 


PRM2 


027 50 








02620 


PRM3 


02850 








16770 


PROCL 


16750 








08060 


PROCl 


08040 








15980 


PTBLA 


15960 








04850 


PUNCH 


00310 


00320 


03240 


04820 


06520 


PUT 


06400 








06550 


PUTR 


06520 








10150 


PUT 1 


09970 


10070 


10110 


10160 


02 130 


P 1 


02110 








01910 


P2 


01890 








02080 


P3 


02040 


07410 


07420 


07440 


02370 


Q 1 


02350 








00494 


r\ Dv# rii\ 


VJU*T 1 ^ 




UUO X -> 


nn A 1 R 

UUO X !? 


00560 


RBCHKl 


00498 








04830 


READ 


00330 








06370 


REC 


03080 


031 60 


071 10 


07220 


06220 


RECM 


00890 


01960 


2000 


1 5300 


16470 


D C ni AD 

rvc OL AD 










048 10 


D p D C A n 

f\ c r\ u M u 










m 1 An 




u^uou 








n7 ^ 1 n 
V 1 ^ L<J 


D C C C To 
Ktot 1 K 


07180 








U 1 U u 


D P C C Tl 1 


U f U lU 








n V 9 "^n 
yj 1 c. DU 


D P C P T 1 










07260 


P P CI f? 


n7 9 "^n 








1 1 590 


RET 


1 1680 


1 1 7nn 


1 1 7^n 

X X r 


1 1 7An 
X X r o u 


09930 


RETUR 


09870 


10570 






08390 


D PXI ID M 


00350 








084 10 


RETURP 


08400 








06250 


RM 


00700 


007 10 


00720 


00730 


02550 


SAFE 


02470 








09 100 


SCAN 


09000 


09050 


09070 




01 140 


SEGFLG 


01 1 10 


01130 


08 220 


08460 


08440 


SEGMT 


00360 








08500 


SEGl 


08480 








08510 


SEG2 


08630 








08650 


SEG3 


08590 








08600 


SEG4 


08680 


08700 






02870 


SETM3 


02690 








12400 


SETUP 


12340 








09090 


SET20 


08960 








09080 


SET 22 


08980 








10930 


SET48 


108 30 








077 10 


SGPRSB 


07780 


078 20 


07980 


08130 


16420 


SLSH 1 


16700 








16 180 


SMBL S 


1 6 000 








10260 


SPEC 


10060 








05560 


SSI 


uo U -?U 








1 ^ 7 on 


ST ADD 




1 t\ A 1 n 
1 D O i U 


1 5620 


15690 




S T AR T 


00414 


1 6930 






U i -J 7 -? 


CT RD An 


U U O IK) 


020 10 






00810 


c Tr nM 


^^7QC^ 

\J\J 1 OD 








166 70 


o 1 U 1 


1 A ft 1 n 


1 A ft n 






07380 


STE 


06 570 








01130 


STMNO 


01040 








00420 


STNO 


009 30 


1 220 


1 340 


32 50 


00440 


STNOM 


1 160 


01180 


1200 


1 200 


009 10 


STNXT 


00780 


1 6100 






09 1 10 


STOR 


09 100 


09780 


09 790 




00782 


STORE 


00090 


02980 


03060 


3170 


09750 


STOR 1 


09 540 


09680 






01 740 


STRMAD 


nn86n 


01750 


1 760 


01810 


02030 


STRNO 


00880 


1950 






03004 


STTST 


02990 








01 040 


STTSTl 


00990 








09230 


ST21 


09210 








09520 


ST22 


09490 








09730 


ST23 


nQ7 1 n 








10 130 


ST27 


10 100 








10400 


ST28 


1 0290 








10580 


ST29 


10380 








1 1 840 


ST62 


1 1790 








11880 


ST 66 


118 00 








09340 




10820 








09320 


SUBN 


09300 


09320 


09 340 


10820 


09890 


CIlRCr R 


1 0640 


10920 






12940 


SUBTT 


129 22 








01 070 


SWC 


1060 


1070 


1 32 30 


13300 


15780 


SM PF 


15400 


1 5550 


15700 


15780 


15770 


SWPF 1 


15710 








13580 


SWTR 


01050 


02050 


02890 


13570 


01100 


SWTRE 


01060 


01080 


01100 


02930 


15570 


SWUDT 


15410 


15500 


15570 


15580 


03580 


SWl 


00980 


02970 


03008 


03580 


01480 


SW12 


01020 


01500 


01530 


02900 


02180 


SW13 


07380 


07390 


15070 





00720 00730 00740 00750 01150 03050 06850 09820 
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07550 


O W t 


02060 


A RQ A 
V ODi7U 


A A 1 A 
U 9U lU 


07550 


07590 












08770 


SW 20 


01310 


02650 


n AAA A 


OA 72 A 
UH 1 9 U 


AR A7 A 
U9 U 1 U 


AR 9 R A 
yJOc. 9 U 


AR OAA 

ur> yHU 


A77A A 
U f 1 OU 


AQ R "2 A 
Uo 9 9U 


n Q 77A 

Uo f 1 U 






AQ A 


09680 


1 0950 


1 1 170 


12010 


12950 


1 3350 


13720 


1 3940 


14380 


040 10 


SW200 


03860 


A ■^QO A 
U 9 7 7 u 


A A9 C: A 
U*+*i 9U 


A A 77 A 
UH f f U 














03930 


SW201 


04500 




















Oftft on 

woo \J\J 


SW 2 1 




A 9 ACl A 


02640 


0441 


04 740 


AR Aft A 

U9 Uo U 


AR Q A A 
UD OOU 


05930 


07770 


08540 






1 1 ft Q A 

i 1 o y u 


12691 


1 3360 


13730 


1 3930 


14390 


16350 


16790 






u O O ^ u 




Aft ft "3 A 


no A o n 
UV UoU 


092 10 


UV90U 


AO/. Q A 


09520 










n Q Q A A 




08860 


09630 


09640 


97 1 


09730 












Aft ft QO 


oW c.H^ 


05 280 


05340 


05830 


0591 


A Q A 

UoooU 


Oyy 00 


11210 


1 1 230 


1 1440 


1 1970 


1 0000 


SW27 


AOQft A 
U 7 7 o U 


1 AA7A 
i UU f U 


10110 


1 A 1 2 A 
i U X 9 U 


1 A 1 ft A 
1 U X U 


1 A 9 R A 
X \JC. 9 U 


1 AAAA 
X UHHU 


1 A2 ft A 

X O9 oU 






099 10 


SW 28 


OQQ 1 A 


A QQ A 
U W 9U 


1 AAAA 
X UHU U 
















09950 


SW 29 


AQft ft A 
U V O O U 


AQQ AA 
U V 7 HU 


1 A 9 AA 
X U ^ *tU 


1 A'2 ft A 
X U 9 U 


X U9 U 












065 70 


SW 30 


013 50 


02 560 


02720 


03100 


03 130 


05360 


05440 


05730 


05 97 


A A*^ft A 
UO 9 U 








1 9AAA 


1 9Q ft A 
X ^: 7 OU 


1 ■2Q7n 

X 9 7 f U 


1 A9 QA 
X *rc. vU 


1 A7 AA 
X *+ f UU 










06460 


SW 31 


1 460 


06460 


06790 
















06470 


SW32 


02730 


05390 


5980 


06470 




06740 


081 60 


10530 


1 2050 


12990 


UD ^ :5U 




1 38 


A 1 Aft A 
U X *tO U 


02350 


A 9 AAA 
U c.*tO yJ 


09 R ft A 
KJC 9 U 


ARA ft A 
U9H U 


AR 7R A 
U-5 ( 9U 


AR 77 A 
U9 f 1 U 


A A "2 "2 A 
UO 9 9U 


A A'2Q A 

U09 y U 






A ft RQ A 
U O 9^ U 


093 50 


1 0640 


1 0830 


1 1 -2 OA 
X X 9 7U 


1 A"^ 9 A 
X H9 ^ U 


1 ARAA 

X 09 UU 










OW DO 


A 1 A9 A 


A 9 "^7 A 
U ^ 9 f U 


A A^ AA 
U 09 *tU 


A 7'2 9 A 
U 1 9*1 U 


A7Q A A 
U f 7 U U 


Aft Aft A 
UO Uo U 


AG A 7 A 
UOO f U 








14280 


S W37 


05410 


5460 


6360 


07060 


09890 


1 1370 


12080 


13020 


14370 


16490 


14300 


SW 38 


02775 


06410 


06480 


14300 














06350 


S W46 


1 520 


063 50 


06860 
















08900 


SW47 


08900 


09540 


10960 
















08910 


S W48 


056 10 


08910 


1 0930 


1 1090 


11190 


12 530 


12710 


14230 


16370 




00740 


SW49 


n o Q o r\ 


U (iO 


03060 


03070 














00750 


S W5 00 


02950 


14110 


1 5060 
















1 A 1 O A 
i Hi (CU 


c u c n 1 
oW D U i 


1 Al 9A 


1 AA7A 
XHH f U 


1 44 8 
















A A ft7 A 
Ut Oil* 




A Aft 7 A 


A AO "J A 
UHV 9U 


A c; 1 1 A 
U 9 X X U 
















0486 


SW 54 


04860 


A A O /. A 

U HV HU 


05350 
















1 1 A Ci A 


C UJ A 1 


1 AQftA 
i U voU 


1 1 A "2 A 
i i U 9U 


1 1 1 1 A 

i X X xu 


1 1 OQ A 

X X u 


1 9 7 R A 
X *C f 9 U 


1 2ARA 
X 9H9U 










i i D i U 


QUI A 9 


1 1 K 1 n 

I 10 IV 


1 1 540 


1 1 R A A 

X i 9 OU 


1 1 A A A 

X X OU u 


1 1 7 Q A 

X X / y u 


1 1 ftAA 
X X OHU 










1 1 130 


c Lf A "2 
o Wo 3 


1 1 9AA 


1 1 400 


1 1430 


1 1 520 


1 1 530 


11550 


1 1580 


1 1860 






1 1 AQA 
i i *+ vU 


QUJ AZl 
O " OH- 


1 1 AO A 


1 1 7 "2 A 
i X f 9U 


1 9 1 "2 A 
X c i 9U 


1 9 9 9 A 


1 9 9 A A 
X ^il OU 


1 9ARA 
X ^H9U 


1 9 A ft ft 

X ^Ooo 


1 97AA 
LC. i UO 


12924 


1 OAftA 

X 9H0U 


1 1 1 9 A 


*^ W A ^ 
o W D ^ 


111 9A 


111 "^A 
XXX 9U 


1 1 2'2A 
X X 99U 


1 9 R A A 
X ^ 9 U 


1 9 R ft A 

L.C.O OKJ 


1 2 A7 A 
X 9 U f U 










1 1 f\ A A 


QUA A 
s> W OO 


1 1 c:aa 


lift A A 
X X oUU 


1 1 ft ft A 
X X ooU 


1 9AAA 
X ilHOU 














1 3630 


S W 70 


L DO H-U 


1 Aft A 
X 9 OO U 


1 "^7 9 A 
X 9 1 <!lU 


1 3730 


X 9 I 9 U 


1 -2 77n 
X 9 f r U 


1 ^7 Q A 
X 9 f 7 U 


1 "2 ft'2 A 
X 9 09 U 


1 "20 AA 
X 9 *tU 


1 2ft 7 A 
X 90 r U 


14060 


SW 7 1 


1 4060 




14500 
















14130 


S W73 


1 0840 


1 4090 


1 41 30 


1 4270 


14360 


1 4460 


1 4640 










QUI 7Zi. 


1 A9 R A 


1 A -2 AA 
i n-O HU 


1 A2 7 A 
X *+9 f u 


1 AAR A 
X HH9 U 


1 AR R A 
X *+99 U 


1 A R 7 A 
X H 9 f U 










A 1 ZlA A 


Q Wft A 
O ril O U 


A 1 A R A 


A 1 RAA 
U X ^HU 


AIR ftA 
U X 9 OU 


A 1 R QA 
U X 9 V U 


A 1 A AA 
U X UU 












01000 


SW 9 






















A QZl A A 


Q U QQ 


A ft ft 7 A 
U OO f U 


A Q "2 A A 
U V 9 UU 


A OA A A 
U VHOU 


1 A2 2 A 
X H99 U 


1 A^AA 
X O9OU 












01 500 


S 1 


1 480 




















1 560 


S2 


01520 




















01400 


C 

OO 


008 30 


X 38 


3004 


30 1 














1 1 lAA 
i i D^\} 


T 
1 


1 1 280 




















15530 


TA 1 


15680 




















1 4 86 


T BL A 


00660 


007 00 


007 50 


2 5 70 


02 740 


U 9H UU 


A R A R CI 

U 9H9 U 


05 740 


05 990 


09 1 






14310 


1 4870 


1 5 9 60 


1 602 


1 648 












14880 


TBL Al 


00640 


00680 


00720 


01370 


02340 


07 860 


08 030 


08 180 


08 580 


14/30 


14820 


T BL B 


006 20 


007 10 


01470 


031 40 


1603 


16060 












T ft 1 n 
1 dLU 


00730 


00740 


2450 


3040 


03110 


/■> R 7 A A 

U9 ( OU 










14800 


T B L F 


10790 


1 48 9 


















1 r\o 1 A 
i Uo i U 


T ft 1 c U 

1 dL r D 


10780 




















1 ^ 9 R A 


T ft 1 DDT 
1 D L r K 1 


1 R 9 A A 


1 R 97 A 
X 9^: f U 


1 R 9 ft A 
X 9 oU 


1 R 9 A 
X 9 ^. 7 U 


1 R '2 7 A 
X 9 9 f u 


1 R'2 ft A 
X 99 U 


1 R A R A 
X 9 9 U 


1 R A7 A 
X 9 r U 


1 R A ft A 
X 9 U 


1 R Q R A 

i 9 y 9 U 


15720 


T D n n T o 
1 or K 1 U 


1 5 350 


1 5440 


1 5630 
















A 7 O A A 
U f V UU 


T BS 3 6 


07870 




















01150 


T n 


Oil 30 




















A C\ 7 A A 


T n ri 1 


AR ft 1 A 

UD o i u 




















1 1 77A 




1 1 A AA 


1 1 AAA 
X X O OU 


















04340 


TF RM 


03920 


04660 


















1 A ft ft A 


T P Y 1 
1 r AL 


1 A 7 Q /"I 
i O / VU 




















165 80 


T HC 


1 /I c c c 
1 O 9 9 9 


165 60 


1 A S A R 
X O 3 O 9 


1 AR AR 
X 9 9 
















T wr nM 
t UIN 


1 A o n f 




















12950 


TH I R T 


12800 


1 288 


1 2 9 30 


1 30 8 














1 A A7 A 


T T P C D 

1 1 b t K 


1 A AAA 




















06280 


TLU 


1 400 


01410 


01470 


01560 


1 570 


02450 


02 570 


02740 


02760 


02770 






5 520 


5 740 


A R 7 A r"\ 
U 9 f OU 


5/90 


05 8 00 


A R QQ A 

u 9 y y u 


A A 9 7 A 
Uo il / U 


A A2 7 A 
U09 f U 


A A A 9 A 
UO H^ U 


06430 






AAA 1 A 
UO O i U 


A A A 9 A 

u o o ^ u 


A A A 2 A 
U O O 9 U 


AAAA A 
u 0*T u 


0665 


A A A AH 
w u 


066 90 


067 00 


06 720 


06730 






A A ft ft A 
U O O O U 


A AO 1 A 

u oy X u 


A A Q 2 A 
U O 7 9U 


A A QA A 
U VH U 


06 960 


06970 


06980 


06 990 


07000 


7020 






07 1 20 


07 130 


07 140 


07150 


07160 


071 90 


07210 


07240 


07 260 


7 2 80 






086 50 


08660 


09810 


09860 


1 0540 


1 0550 


10790 


108 00 


1 1 360 


11410 






1 A Aft A 
i HO U 


16520 


1 A R "2 A 
i O 9 9U 


1 A R A A 
X 9HU 














06270 


T LU 1 


01370 


02340 


7 860 


U oU 9U 


08180 


08 580 


14730 








10090 


TNC H 


1 0040 




















07520 


T0PT2 


07450 




















10440 


TS SW 27 


10600 




















1 i ^ J>U 


T QT 


1 1 ft Q A 
± 1 O 7 u 




















J. 1 ^ _> u 


T ST 24 


1 1090 




















A Q R A A 


T QT 97 


A OA R A 
U VO 9U 


A Q A 7 A 
U " o / U 


AO 7AA 
U V / HU 
















A"^ A 9n 


T QUI! 9 


A "^n A A 
U 9 UU *T 




















09490 


T SW 22 


09430 




















0963 


T SW 2 3 


09 570 


09 590 


















A A 7Qn 


T Q 1 


06380 




















1 1 Q A 


T Q W2 ^ 


i i 9 f U 




















n Q "2 ft A 
U V 3 o u 


T T Q Ul 9 9 
1 1 o W ^ ^ 


A Q 1 on 

U ^ X 7 u 




















02760 


TUDF 


02580 




















12530 


TWELVE 


11830 


11850 


11870 


11920 


11960 


12510 










02110 


TYPE 


00500 


02130 


















03230 


TYPEXX 


00380 





















09140 09200 09290 09470 
16780 



09060 09230 11810 11850 



12730 13010 14650 



08010 08150 08560 10520 



14710 

07050 07300 07870 08040 



13930 13950 14000 14010 



11360 12060 13000 13990 
15950 



16060 



03110 
06440 
06750 
07030 
07310 
1 1420 



03140 05400 
06530 06550 
06760 06770 
07040 07080 
07340 07360 
12060 13000 



05450 05510 

06560 06590 

06820 06840 

07090 07100 

08060 08070 

13990 14310 
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11330 


T 12 


112 30 




10340 


T29 


10310 




06410 


T38 


06740 




1 5450 


UNuBl 


15460 


15470 


16160 


UNDEF 


15420 


16000 


01080 


UT F 


01050 


01530 


055 10 


VDE F 


05480 




05480 


VDE F 35 


05460 




02230 


WHERE 


02180 


02250 


09240 


WIPE 


09200 


09220 


056 10 


Yl 


05250 




052 70 


Y2 


05610 




05300 


Y3 


05280 




05320 


Y4 


05300 




05680 


Y5 


05640 




05830 


Y6 


05780 




05 860 


Y7 


05830 




05930 


Y8 


05910 




02 380 


ZAP 1 


02360 


02490 


03271 


Zl 


03260 


07600 


03535 


Z2 


03400 




03540 


Z21 


03536 




03970 


Z3 


04030 




04320 


Z4 


04300 




05010 


Z5 


04890 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 










00000 


» C4D 


DIAGNOSTICIAN 


00404 








00010 




DORG 


404 


00405 




0008 


X2 


00020 


INPUT 


DAS 


80 ,,,AREA WHERE STATEMENTS ARE READ 


00584 








00030 




DORG 


5 84 


00584 


25 


00826 


00401 


00040 




TD 


DCEXEC-14 ,401 


00596 


49 


18012 




00050 




B7 


18012 


00604 








00060 




DORG 


604 










00070 


* 


THESE 


DSA INSTRUCTIONS DEFINE BRANCH ADDRESSES FOR EACH 










00080 




TYPE : 


SOURCE STATEMENT 


00608 




00005 


ei234 


00090 




DSA 


STORE 


006 13 




00005 


©3836 


00 100 




DSA 


FRMT 


00618 




00005 


68710 


00110 




DSA 


CFRMT 


00623 




00005 


68666 


00120 




DSA 


CIO 


00628 




00005 


i2394 


00130 




DSA 


ARITH 


00633 




00005 


i4850 


00140 




DSA 


IF 


00638 




00005 


68742 


00150 




DSA 


BGTR 


00643 




00005 


68926 


00160 




DSA 


BGSG 


00648 




00005 


69082 


00170 




DSA 


BGPR 


00653 




00005 


i5926 


00180 




DSA 


COMMON 


00658 




00005 


69264 


00190 




DSA 


CLSG 


00663 




00005 


62534 


00200 




DSA 


END 


00668 




00005 


62534 


00210 




DSA 


END 


00673 




00005 


+ 5858 


00220 




DSA 


DIMENS 


00678 




00005 


62616 


00230 




DSA 


DO 


00683 




00005 


68590 


00240 




DSA 


CLPT2 


00688 




00005 


^69452 


00250 




DSA 


ENDTR 


00693 




00005 


69380 


00260 




DSA 


ENDSG 


00698 




00005 


69472 


00270 




DSA 


ENDPR 


00703 




00005 


69540 


00280 




DSA 


EXCPR 


00708 




00005 


+ 5410 


00290 




DSA 


GOTO 


00713 




00005 


65694 


00300 




DSA 


PAUSE 


00718 




00005 


65754 


00310 




DSA 


PUNCH 


00723 




00005 


65754 


00320 




DSA 


PUNCH 


00728 




00005 


65734 


00330 




DSA 


READ 


00733 




00005 


65714 


00340 




DSA 


REREAD 


00738 




00005 


69572 


00350 




DSA 


RETURN 


00743 




00005 


69628 


00360 




DSA 


SEGMT 


00748 




00005 


■i5366 


00370 




DSA 


END2 


0075 3 




00005 


638 16 


00380 




DSA 


TYPEXX 


0075 8 




00005 


63572 


00390 




DSA 


CONTER 


00763 




00005 


i4886 


00400 




DSA 


E20 


00764 


16 


00023 


60299 


00410 




TFM 


23 ,299 


00776 


27 


00882 


00881 


00412 




BT 


RBCHK ,RBCHK-1 


00788 


49 


16688 




00414 




B7 


START 


00797 




00005 


X2 


00420 


SING 


DAS 


5 


00807 




0000 1 


X2 


00430 




DAC 


1, ' 


008 09 




00005 


X2 


00440 


STNGM 


DAS 


5 


008 1 9 




0000 1 


X2 


00450 




DAC 


1» ' 


00824 




00005 




00466 




DC 


5 ,-12994 






000 1 6 




00470 


DCEXEC 


DC 


16 ,7980312600400' 


0084 1 




000 10 




00480 


ERR 


DSC 


10,455959000 ' 


00853 




00014 


X2 


00490 


HERR 


DAC 


14,HDWR ERR DIAG' 


00881 




00002 




00492 




DC 


2,0 


00882 


36 


00044 


00763 


00494 


RBCHK 


RN 


44 ,703 ,10 


00894 


47 


00904 


01942 


00496 




BNI 


»+10 ,1942 


00906 


43 


00962 


00023 


00498 




BD 


RBCHKl ,23 ,11 


009 18 


17 


02578 


60853 


00500 


HWERR 


BTM 


TYPE, HERR ,,,HAR0WARE ERROR. CALL EXECUTIVE 


00930 


39 


00853 


00100 


00510 




WATY 


HERR 


00942 


3 1 


00038 


00820 


00520 




TR 


38 ,DCEXEC-20 


00954 


49 


00000 




00550 




B7 





00962 


25 


000 22 


00023 


00560 


RBCHKl 


TD 


22 ,23 ,11 


00974 


46 


00986 


00600 


00570 




B I 


«+12 ,600 


00986 


46 


00998 


1600 


00580 




BI 


*+12 ,1600 


00998 


46 


01010 


01700 


00600 




B I 


*+12 ,1700 


01010 


49 


UUUUU 




00610 




B7 




01018 


27 


0088 2 


0088 1 


0061 5 




BT 


RBCHK ,RBCHK-1 


01030 


1 5 


■17065 


00000 


00620 


CS YMT9 


TDM 


TBLB+9,0,2 ,,,CLEAR SYMBOL TABLE AREA 


1 042 


1 1 


01036 


60010 


00630 




AM 


CSYMT9+6, 10 


01054 


14 


01036 


39995 


00640 


CZl 


CM 


CSYMT9+6,TBLAl+9 


1 066 


47 


10 30 


01200 


00650 




BNE 


CSYMT9 


1 078 


15 


i-78 36 


00000 


00660 


CSYMTl 


TDM 


TBLA+10,0, 2 


1 090 


1 1 


1084 


600 10 


00670 




AM 


CS YMT 1+6 , 10 


01102 


14 


1084 


39996 


00680 


C 12 


CM 


CSYMT1+6,TBLA1+10 


01114 


47 


1 07 8 


1 200 


00690 




BNE 


CSYMTl 


01126 




1 7826 


07246 


00700 




TD 


TBLA,RM , , , INIT I AL I ZE TABLES 


01138 


25 


17056 


07246 


00 7 10 




TD 


TBLB,RM 


01150 


25 


39995 


07246 


00720 


CZ3 


TD 


TBLA1+9,RM 


01162 


25 


17216 


07246 


00730 


FLAG 


TD 


TBLD,RM 


01174 


25 


17215 


07246 


00740 


SW49 


TD 


TBLD-1,RM 


01186 


25 


17825 


07246 


00750 


SW500 


TD 


TBLA-1,RM 


01198 


16 


01496 


00060 


00760 




TFM 


NESM,0,10 


01210 


31 


000 38 


01253 


00770 




TR 


38 ,DCF-6 


01222 


26 


01381 


00570 


00780 




TF 


STNXT ,570 


01234 


15 


00022 


00009 


00782 


STORE 


TDM 


22 ,9 


01246 


49 


00024 


01274 


00785 




B 


24 ,STCOM 


01259 




00002 




00790 


DCF 


DC 


2,0 


01273 




00014 




00795 




DC 


14,6000000200404' 


01274 


27 


008 94 


00893 


00810 


STCUM 


BT 


RBCHK+12 ,RBCHK+11 
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LOCTN OP 



P/L 



PG/LN LABEL MNEM OPERANDS AND REMARKS 



01286 
01298 
01310 
01322 
01334 
01346 
01358 
01370 
01381 
01382 
01394 
01406 
01418 
01430 
01442 
01454 
01466 
01474 
01486 
01496 
01498 
01510 
01522 
01534 
01546 
01558 
01566 
01578 
01590 
01598 
01610 
01622 
01634 
01646 
01658 
01670 
01682 
01694 
01706 
01718 
01726 
01738 
01746 
01758 
01770 
01782 
01794 
01806 
01818 
01830 
01842 
01854 
01866 
01874 
01886 
01898 
01910 
01918 
01930 
01942 
01954 
01966 
01978 
01986 
01998 
02010 
02022 
02034 
02046 
02054 
02066 
02078 
02090 
02101 
02102 
021 10 
02122 
02130 
02132 
02144 
02156 
02164 
02166 
02178 
02185 
02189 
02190 
02202 



71 
71 
32 
26 
26 
26 
31 
32 

11 
26 
14 
46 
14 
47 
44 
49 
43 
33 

43 
44 
44 
33 
33 
49 
32 
33 
49 
44 
17 
25 
31 
15 
14 
47 
31 
45 
26 
49 
17 
49 
14 
46 
17 
44 
44 
26 
26 
32 
17 
44 
49 
11 
33 
44 
49 
17 
32 
32 
17 
44 
49 
32 
12 
44 
44 
44 
49 
12 
24 
46 
33 

49 
17 
49 

33 
26 
49 

26 
32 



11 

26 



01874 
01286 
00548 
02189 
02101 
02521 
00552 
00557 
00005 
00049 
00805 
00405 
0055? 
00405 
01726 
01474 
01498 
03572 
01966 
0000 2 
01598 
01546 
01566 
01534 
01566 
01578 
01566 
01610 
0055? 
016 22 
02132 
00415 
008 08 
00415 
00809 
01746 
00808 
01658 
00805 
02022 
02132 
01706 
00809 
01682 
099 36 
01726 
01726 
07 244 
00805 
07602 
07262 
01874 
01930 
07285 
0728* 
01918 
01930 
02132 
01942 
07498 
07286 
01986 
02022 
01966 
014 96 
02054 
01546 
02110 
01546 
07285 
07244 
01942 
01942 
00000 
01942 
02132 
01546 
00002 
02166 
02143 
02190 
00002 
02143 
02166 

00005 
02189 
02220 



00549 
00561 
00000 
00552 
00557 
00576 
07233 
00000 

00092 
07256 
00043 
01200 

oooeo 

01200 
04372 

00414 
00000 

00563 
15378 
01534 
00000 
00000 

00000 
00000 

01610 
00025 
07246 
00404 
00000 

oooeo 

01200 
00810 
00809 
07256 

000i7 

000?0 
01200 
90809 
09960 
09972 
09926 
09926 
00000 
39995 
07346 

90010 
00000 
07358 

00093 
00000 
00000 
+7056 
07346 

00000 
00091 
07370 
01966 
01942 

90001 
07285 
01200 
00000 



00097 



00000 
02131 



02165 
00000 



90001 
02189 



00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
OHIO 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01260 
01270 
01280 
01290 
01310 
01320 
01330 
01340 
01350 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01595 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01710 
01720 
01730 
01740 
01750 
01760 



NSEEK 



STNXT 



SW9 



NESM 
STTSTl 



SWC 
UTF 

SWTRE 
BRANCH 

STMNG 

SEGFLG 

TD 



N03A 

CZERO 

CLSNO 

N03C 

N03B 



CZ4 

S3 

E3 

N03E 
SW80 

SW12 

SI 



S2 

STBRAD 
N03F 

ERR0R9 
ERROR 



STRMAD 
ERRORl 



MP 

MF 

SF 

TF 

TF 

TF 

TR 

SF 

DC 

AM 

TF 

CM 

BE 

CM 

BNE 

BNF 

B7 

BD 

CF 

DC 

BD 

BNF 

BNF 

CF 

CF 

B7 

SF 

CF 

B7 

BNF 

BTM 

TD 

TR 

TDM 

CM 

BNE 

TR 

BNR 

TF 

B7 

BTM 

B7 

CM 

BE 

BTM 

BNF 

BNF 

TF 

TF 

SF 

BTM 

BNF 

B7 

AM 

CF 

BNF 

B7 

BTM 

SF 

SF 

BTM 

BNF 

B7 

SF 

SM 

BNF 

BNF 

BNF 

B7 

SM 

C 

BE 

CF 

DS 

B7 

BTM 

B7 

DS 

CF 

TF 

B7 

DS 

TF 

SF 

DORG 
DC 
AM 
TF 



S3, 549 
NSEEK, 561 
548 

STRMAD, 552 

STBRAD, 557 

STRN0,576 

552,RECM-1,6 

557 

5,0,* 

49 ,2 
STNO+8, CLEAR 
INPUT, 43, 10 
557,, 6 
INPUT, 0,10 
N03C 
SW9,SW1 
STTSTl 

CONTER, INPUT+9 

SW12 

2,0,*-l 

STMN0,563 

UTF,SWTR 

SWTRE, SWC 

SWC 

SWTRE 

BRANCH 

SWTRE 

SEGFLG 

557, ,6 

TD, SEGFLG 

ERR0R9,25, 10 

415, RM 

STNOM-1, INPUT-1 
415,0 
STNOM, ,10 
N03B 

STNOM-1 ,STN0M+1 
N03A, STNOM 
STNO+ 8, CLEAR 
r 



,10 



,,,IS THIS COMMENT STATEMENT 



,,,IF CONTINUATION DONT CLEAR FLAGS 



,,,BRANCH TO CHECKING ROUTINE FOR THIS 
,,,TYPE STATEMENT 

,, .ROUTINE FOR CHECKING STATEMENT LABEL 
,,, SQUEEZE STATEMENT LABEL 



ERROR9,17,10 ,,, INVALID STATEMENT LABEL 



CLSNO 
STNOM, 70, 10 
CZERO 

LBPROC, STNOM 

N03C,SW20 

N03C,SW21 

ARG,LABEL-2 

STNO+ 8,LABEL-2 

SW30 

TLUl ,TBLAl + 9 
S3 ,SW35 
N03E 

TLU-1 , 10 
TLU-1 , ,6 
E3 ,SW36 

N03E 

ERR0R9,3,10 

SW80 

SW31 

TLU,TBLB 

51 ,SW35 

C 

SW12 

NESM, 1,10 

52 ,SW46 
UTF,SW12 
N03F,SW80 
UTF 

TLU-1, 1 

ARG, TLU-1, 11 

SW80 

SW80 

f * 

SW80 

ERR0R9,7, 10 

UTF 

2 

ERROR 

ERRGR9+11,ERR0R9-1 

ERRORl 

2 

ERR0R9+11 ,ERR0R-1 
ERROR 

5,0 

STRMAD, 1 
CRMlO+6, STRMAD 



,,,IF LABEL PKEVIOUSLY UNDEFI^!ED, 
,,,DEFINE IT. 



,,, DUPLICATE STATEMENT LABEL 
,,,DOES THIS LABEL CLOSE DO LOOP 



,,, HOLDS BRANCH ADDRESS FROM INPUT AREA 
,,, IMPROPERLY NESTED DO LOOPS 

, , jSUBROUTINE FOR ERROR MESSAGE 



,,, STORE ADDRESS OF WHERE RECORD MARK 
,,,SHOULD BE IN INPUT AREA 
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P 
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022 14 


15 


AAA AA 
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U 1 r 1 U 
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U r\ "I X u 


TDM 




02226 
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A 9 9 9n 


annn 9 


m 7ftn 
U i / ou 




o rl 






45 


n 9 9 tift 


A 9 9 90 


n 1 7o n 
ui 1 yu 




ftMD 
DINK 




02250 


49 


A 9 9 1 /. 




n 1 snn 
u i ouu 




R7 
D 1 


r D M 1 n 




1 9 


n 9 1 ft Q 


annn i 


m ft 1 n 
u X o xu 


r p M T 


O rl 


CTDMAn 1 


n 9 7n 


1 A 

1 o 


A 9 "2 A A 


60563 


1 820 




T FM 




yj C.C.O c 


1 A 


n9 an c: 


an RA7 


m ft an 

U X O 3U 




1 rri 


r \ Cr*Tj.ll TMDItTa.lAO 


022 94 


9 A 


AA^A a 


<an ^A7 

t3U I3*T 1 


1 840 


r 1 P n T 


T P 
1 r 


TMDnTj.1c;Q TNIDIITJ-IAO 97 

1 IM rU 1 + 1 D o f IN rU 1 "r IH £. f d f 


U ^ 5 u o 


1 9 


A 9 a A A 


annn 9 


m ft c;n 




o rl 




023 1 8 


1 9 


n9 an r 


annn 9 

t3UUU ^ 


1 860 








02330 




n9 an r 


6040 3 


018 70 




r M 

U rl 






A7 


A 9 9 OA 


A 1 9 nn 
u 1 ^uu 


n 1 ftft A 
ux oou 




BNE 


CL FG I 


02354 


*T f 


A9 a7ft 


03400 


m fton 
u X oy u 


r p n 1 


ft W T 
DIN X 








UuUUU 


AnQ7 1 

uuy f i 


n 1 Q nn 
uxyuu 




ols X r 


♦ 1 




3 1 


A AAA A 


nnft A 1 


A 1 Q 1 A 

u xy xu 


D 9 


T D 
1 K 


TMDtlT_1 C D D 




aa 


n 9 1 Aa 


UUUUU 


n 1 Q 9n 
uxy ^u 




r p 
Ur 


C D D no O J. 1 1 

t KKUK V+ i i 




1 D 


nnA 1 ^ 


n 9 1 Aa 


n 1 Q a A 
u X y 3U 




T M P 
1 INr 


ItNrU l + iU» t KKUKV + i i 


02414 


16 


00419 


06034 


01940 




T FM 


INPUT+14»34t8 


02426 


7 d 


A A £^ 7 1 


02521 


01950 




TNF 


C "7 1 CTDMn 

D 1 1 » ol RND 


0243 8 


3 1 


0057 2 


07233 


01960 




TR 


572 ,RECM-1 


02450 


39 


00405 


00900 


01970 


PRAl 


PRA 


INPUT , , 


02462 


32 


01 162 


00000 


01980 




S F 


FLAG 


02474 


3 1 


A AA A A 


00420 


01990 




TR 


INHUT — 1, IIMI-'UT+15 ,, 


02486 


3 1 


02189 


07233 


02000 




TR 


STRMAD,RECM-1 , 6 ,, 


02498 


26 


0055 7 


02101 


02010 




T F 


557 , STBRAD 


02510 


32 


00557 


A A A A A 
UUUUU 


A 9 A 9 A 
U^U^lU 




SF 


557 


02 521 




0000 5 




A 9 A ^ A 

\J£.\J 30 


STRNO 


DC 


5,0,* 


02522 


44 


025 66 


02166 


02040 




BNF 


n a c o o A r> 


02534 


33 


15 378 


A A A A A 
UUUUU 


020 50 


END 


C F 


SWTR , , 




33 


08678 


A A A A A 
UUUUU 


02060 




CF 


SW2 , , 






naAAft 




n 9 A 7 A 

u^u f u 




ft 7 
D 1 


UUtINU X 


02566 


ii.9 


nnnnn 


UUUUU 


n9nftn 
u^uou 


Da 


ftft 
DD 




n 7 va 








n 9nQn 
Ucuyu 




UUKo 




025 77 




00005 




02100 




OS 




02578 


47 


02602 


03400 


02110 


TYPE 


BN I 


r X , U5*rUU 


02590 


a^ 


A Annn 

UUUUU 


00971 


021 20 




T P 
o l\ X r 


» X 


02602 


a Q 


025 7? 


00900 


02130 


P 1 


PRA 


T YPP— I • . A 


A 7 A 1 A. 


^ 9 






A 9 1 An 

U ^ X "tU 




R R 9 
D D A 




n 9 A 1 A 


1 A 


A 9 A ft 7 
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UuUW JL 


A 9 1 A 
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DO 


T P M 

1 rri 
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n 9 A *9 c 
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n 9 A 7 n 


an A9 1 
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T P M 
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PTMPtJ-A TKIDIlT.i.lA 
r XINU+O , ilNrU 1 + XO 


n 9 A A.n 


26 


A QQ 9D 


072 56 


021 70 




T F 


1 A D P 1 r 1 P A D 

LAtJCL ,LLt AK 


02652 


16 


26 94 


69920 


021 80 


SWl 3 


T FM 


WHERE +6, LABEL— 8 


02 664 


14 


00000 


000¥0 


02190 


FIND 


CM 


,70,10 


02676 


47 


0275 6 


1 300 


A O O A A 

02200 




B L 


FST 


02686 








02210 




DORG 
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02687 




A A A A 

0000 2 




02220 
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DC 


2 ,0 
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022 60 




r M 
u It 
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44 
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02350 
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49 
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B7 


ZA P 1 
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02440 
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A 9 Q 9 A 


T 7 


07 286 


i7 2 1 6 


02450 




BTM 


Till T R 1 n 


02 932 


44 


30 16 


07346 


02460 




BNF 


CIO C \ 1"^ c 


02944 


49 


03028 




02470 




B7 


SAFE 


02952 


17 


02132 


00069 


02480 


BADNEW 


BTM 


ERR0R9 f09 1 10 t » 


02 964 


49 


02848 




02490 




B7 


Z A PI 


02 972 


14 


26 76 


00051 


02500 


CHL2 1 


CM 




n 9 Q ft A 


A7 
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U ^ 1 o u 


All AA 
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A rl 




A a A A ft 
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U. 7 
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030 16 




02132 


OOOiS 


02540 


E 1 8 


BTM 


F RRflR Q . 1 ft . 1 


0302 8 


26 


0007 9 


09926 


025 50 


SAFE 


J p 


7Q * 1 A R F ( — P 


n a AA.n 


a 9 


n 7A n9 
u r o u^: 


UUUUU 


n 9 ^ A A 
POU 




<; P 
o r 


o wo U 


03052 


\-j 


07286 


i7 8 26 


02570 




BTM 


T 1 1 1 . TRI A 


03 064 


44 


0326 


07346 


02580 




BNF 




03076 


1 
i 




nnn^a 

UUU^ J 


02590 


r nM PP o 




LDrfSUo L i O D f O X.\J 


na nftft 


47 


2780 


n 1 9nn 
U 1 ^uu 


n9 Ann 

\J C OU u 




BNE 


Fin 


03 1 00 


]^ 1 


099 35 


60002 


02610 




AM 


LBPROC-1 » 2 


03112 


27 


09936 


09935 


02620 


PRM3 


BT 


LBPR0C,LBPR0C-1 


03124 


44 


02780 


09972 


02640 




BNF 


E10,SW21 


03136 


44 


03204 


09960 


02650 




BNF 


NONN,SW20 


03148 


45 


03304 


09935 


02660 


PRM2 


BNR 


C0MP1,LBPR0C-1,11 


03160 


14 


02687 


00062 


02670 




CM 


DOCNT,2rlO 



, ,,SET UP ERROR NO. FOR PRINT OUT 



,,, OUTPUT ERROR MESSAGE 



,,, ROUTINE TO CHECK DO STATEMENTS 



, , , INVALID DO STATEMENT 



, ,,END OF DO LOOP IS PREVIOUS STMNT 



C4D DIAGNOSTICIAN 



JANUARY 20, 1967 PAGE 



LOCTN 


OP 


P/L 
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00000 
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03420 


33 


15378 


00000 




02890 


DOENO 


CF 


03432 


44 


03468 


01966 




02900 




BNF 


03444 


17 


02132 


00068 




02910 




BTM 


03456 


33 


01174 


00000 




02920 




CF 


03468 


44 


03492 


01566 




02930 


DOENDl 


BNF 


03480 


17 


02132 


00039 




02940 




BTM 


03492 


33 


01186 


00000 




02950 


CF500 


CF 


03504 


33 


02166 


00000 




02960 




CF 


035 16 


44 


03536 


04372 




02970 




BNF 


03528 


49 


01234 






02980 




B7 


03536 


44 


03560 


01286 




02990 


NOTYPl 


BNF 


03548 


17 


021 32 


00065 




03000 




BTM 


03560 


44 


03628 


01874 




03004 


STTST 


BNF 


03572 


17 


02132 


00062 




03006 


CQNTER 


BTM 


03584 


33 


04372 


00000 




03008 




CF 


03596 


33 


01874 


00000 




03010 




CF 


03608 


33 


01286 


00000 




03012 




CF 


03619 




0000 2 






03014 


NPFR 


DC 


03620 


49 


05826 






03016 




B7 


03628 


44 


03676 


01966 




030 20 


TSW12 


BNF 


03640 


13 


01496 


00610 




030 30 




MM 


03652 


1 1 


00099 


+7216 




03040 




AM 


03664 


25 


0009^ 


07246 




03050 




TD 


03676 


44 


01234 


01174 




03060 


NEDQ 


BNF 


03688 


33 


01174 


00000 




03070 




CF 


03700 


16 


07400 


68290 




03080 




TFM 


03712 


26 


07244 


00079 




03090 




TF 


03724 


32 


07602 


00000 




03100 




SF 


03736 


17 


07286 


+7216 




03110 




BTM 


03748 


31 


07235 


00059 




03120 




TR 


03760 


32 


07602 


00000 




03130 




SF 


03772 


17 


07286 


+7056 




03140 




BTM 


03784 


11 


01496 


00061 




03150 




AM 


03796 


16 


07400 


67974 




03160 




TFM 


03808 


49 


01234 






03170 




B7 


03816 


16 


09935 


60425 




03230 


TYPEXX 


TFM 


03828 


49 


05766 






03240 




B7 


03836 


16 


03619 


00060 




03249 


FRMT 


TFM 


03848 


24 


00805 


07256 




03250 




C 


03860 


47 


03884 


01200 




03260 




BNE 


03872 


17 


02132 


00029 




03270 




BTM 


03884 


33 


01286 


00000 




03271 


Zl 


CF 


03896 


16 


03938 


60417 




03280 




TFM 


03908 


16 


04123 


60418 




03290 




TFM 


03920 


16 


041 18 


60416 




03300 




TFM 


03932 


14 


00417 


00060 




03310 


FMATl 


CM 


03944 


46 


04112 


01200 




03320 




BE 


03956 


14 


03936 


00024 




03321 




CM 


03968 


46 


04248 


01200 




03322 




BE 


03980 


14 


03938 


00064 




03323 




CM 


03992 


46 


04268 


01200 




03324 




BE 


04004 


14 


03936 


00048 




03330 




CM 


040 16 


46 


04 144 


01200 




03340 




BE 


04028 


11 


03938 


60002 




03350 


FORMA 


AM 


04040 


1 1 


041 18 


60002 




03360 




AM 


04052 


11 


04123 


60002 




03370 




AM 


04064 


45 


03932 


03936 




03380 


FMATIX 


BNR 


04076 


12 


03938 


60002 




03390 




SM 


04088 


45 


04288 


03936 




03400 




BNR 


04100 


17 


02166 


00029 




034' (' 


E29 


BTM 


04112 


31 


00416 


00418 




03420 


FMAT2 


TR 


04124 


49 


04064 






03430 




B7 


04132 


1 1 


04574 


00601 




03440 




AM 


04144 


27 


04420 


03938 




03450 


FMAT3 


BT 


04156 


11 


04574 


00601 




03460 




AM 


04168 


13 


04574 


00062 




03470 




MM 



ElO 

SETM3 

FPROC 

ARG,LABEL-2 

SW30 

SW32 

TLU,TBLA 

PRM2 

TLU-1,1 

TLU-1,,6 

COMPEQ ,SW38 

ElO 

LBPROC-1,23,610 
ElO 

DOCNT,1,10 
D0CNT,4,10 
ElO 

LBPROC-1,2 
PRM3,LBPR0C-1,11, 

ElO 

99, CLEAR 

SW49 

SWTR 

DOENDl ,SW12 
ERRQR9,8, 10 
SW49 

CF500,SWTRE 
ERRGR9,39,10 
SW500 
ERROR 

NOTYPl, SWl 
STORE 

STTST, NSEEK 

ERR0R9,5,10 

TSW12,S3 

ERR0R9,02,10 

SWl 

S3 

NSEEK 

2,0,* 

IOPROC+24 

NED0,SW12 

NESM,010,9 

99,TBLD 

99,RM,6 

STORE ,SW49 

SW49 

REC+6, RESET 

ARG,79 

SW30 

TLU,TBLD 
ARG-9,59 
SW30 

TLU,TBLB 
NESM,1,10 
REC+6, COMPAR 
STORE 

LBPROC-1, INPUT+20 

PUNCH+12 

NPFR, ,10 

STNO+8, CLEAR 

Zl 

ERR0R9,29,10 
NSEEK 

FMATl+6, INPUT+12 
FMAT2+11,INPUT+13 
FMAT2+6, INPUT+11 
INPUT+12, , 10 
FMAT2 

FMATl+6,24,610 
NPF 

FMATl+6,04,610 
NPFS 

FMATl+6,48,610 

FMAT3 

FMATl+6,2 

FMAT2+6,2 

FMAT2+11,2 

FMATl ,FMATl+6, 11 

FMATl +6,2 

Z2 ,FMAT1+6,11 

ERROR, 29, 1011 

INPUT+11, INPUT+13 

FMATIX 

EDIT2+10,1,9 
EDIT,FMATl+6 
EDIT2+10,1,9 
EDIT2+10,2,10 



,1244 



,,,UNLABELED STATEMENT FOLLOWING 
,,,TRANSFER STATEMENT 



,, CONTINUATION ERROR 



,,,IF DO STATEMENT, HOLD INDEX AND 
, ,, LABEL 



, ,, CHECK TYPE 

,,, CHECK FORMAT 
,,, FORMAT ERROR 

,,,FORMAT CONTINUATION ENTERS HERE 



,,,IS THIS HOLLERITH FIELD 



,,, SQUEEZE FORMAT EXCEPT H-TYPE 
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LOCTN 


□ P 


P/L 


Q 


PG/LN 


04180 


21 


039 38 


00099 


0348O 


04192 


21 


04118 


00099 


03490 


04204 


21 


04123 


00099 


03500 


04216 


24 


03938 


00552 


03510 


04228 


46 


04100 


01100 


03520 


04240 


49 


04064 




03530 


04248 


11 


03619 


00061 


03531 


04260 


49 


04028 




03532 


04268 


12 


3619 


oooei 


03533 


04280 


49 


04028 




03534 


04288 


14 


03619 


oooeo 


03535 


04300 


46 


04324 


01200 


03536 


04312 


32 


01286 


00000 


03537 


04324 


14 


03936 


00064 


03540 


04336 


46 


04384 


01200 


03550 


04348 


14 


0393& 


00023 


03560 


04360 


47 


04100 


01200 


03570 


04372 


32 


04372 


00000 


03580 


04384 


44 


04614 


08678 


03590 


04396 


16 


09935 


60417 


03594 


04408 


49 


04662 


00000 


03600 


04420 


12 


044 19 


60002 


03610 


04432 


16 


04574 


00600 


03620 


04444 


16 


044 86 


64574 


03630 


04456 


14 


04419 


000?0 


03640 


04468 


47 


04564 


01300 


03650 


04480 


25 


04574 


04419 


03660 


04492 


12 


04419 


60002 


03670 


04504 


14 


04419 


60417 


03680 


04516 


47 


04564 


01300 


03690 


04528 


12 


04486 


60001 


03700 


04540 


14 


04486 


64571 


03710 


04552 


47 


04456 


01200 


03720 


04564 


32 


04572 


00000 


03730 


04576 


14 


04574 


00662 


03740 


04588 


47 


10518 


01100 


03750 


04600 


17 


02166 


00029 


03760 


04612 


42 






03770 


04614 


16 


09935 


60429 


03820 


04626 


14 


09935 


00024 


03830 


04638 


47 


04100 


01200 


03840 


04650 


11 


09935 


60002 


03850 


04662 


33 


04830 


00000 


03860 


04674 


14 


09935 


00064 


03870 


04686 


46 


05574 


01200 


03880 


04698 


14 


09935 


00021 


03890 


04710 


46 


04862 


01200 


03900 


04722 


14 


09935 


00023 


03910 


04734 


46 


05210 


01200 


03920 


04746 


14 


09935 


00020 


03930 


04758 


46 


04100 


01200 


03940 


04770 


14 


09935 


00021 


03950 


04782 


46 


04650 


01200 


03960 


04794 


14 


09935 


000?0 


03970 


04806 


47 


04882 


01300 


03980 


04818 


32 


04830 


00000 


03990 


04828 




00002 




04000 


04830 


11 


09935 


60002 


04010 


04842 


11 


04828 


60001 


04020 


04854 


49 


04794 




04030 


04862 


11 


09935 


60002 


04040 


04874 


49 


05542 




04050 


04882 


14 


04828 


00063 


04060 


04894 


47 


04918 


01300 


04070 


04906 


17 


02132 


00041 


04080 


04918 


15 


04828 


00000 


04090 


04930 


14 


09935 


00048 


04100 


04942 


46 


05 106 


01200 


04110 


04954 


14 


09935 


00046 


04120 


04966 


46 


05242 


01200 


04130 


04978 


14 


09935 


00049 


04140 


04990 


46 


05606 


01200 


04150 


05002 


14 


09935 


00045 


04160 


05014 


46 


05242 


01200 


04170 


05026 


14 


09935 


00067 


04180 


05038 


46 


05 662 


01200 


04190 


05050 


14 


09935 


00041 


04200 


05062 


46 


05402 


01200 


04210 


05074 


14 


09935 


00024 


04220 


05086 


47 


04100 


01200 


04230 


05098 


49 


04650 




04240 


05106 


44 


04600 


04830 


04250 


05118 


27 


044 20 


09935 


04260 


05130 


11 


04574 


00061 


04270 


05142 


13 


04574 


00062 


04280 


05154 


21 


09935 


00099 


04290 


05166 


45 


05 186 


09935 


04300 


05178 


49 


04600 




04310 



LABEL MNEM OPERANDS AND REMARKS 





A 


FMATl+6 »99 




A 


FMAT2+6,99 










c 


FMATl +6.5'57 




BH 


E29 




B 7 


PMAT1 Y 


NPF 


AM 


WPFR .1.10 




B7 


FORMA 


NPFS 


SM 


M PPR . 1 . 1 n 




B7 




Z2 


CM 


NPFR f , 10 




BE 


Z21 




S F 


NS EEK 


Z21 


CM 


FMAT1+6»4,610 




BE 


FMAT4 




CM 


FMATl +6, 23, 610 




BNE 


E29 


o w i 


o r 




FMAT4 


BNF 






TFM 


1 R PRnr — 1 . TNPIIT+l 7 




□ 

D 


rriA 1 Kr+ LtL 


P n T T 




P n T T_ 1 

CD I 1 — J. , <; 




TFM 






TFM 


PnTTi-i.*^n cnTT'54.in 
CU 1 1 i + jU,tUl 1 il+lU 


ED IT 1 


CM 


uUi I JL, iu,oiu 




BL 


E0IT2 




TD 






SM 


EDIT-1 ,2 




CM 


EDIT-1 ,417 




BL 


EDIT2 




SM 


EDITl+30, 1 




CM 


EDITl+30,EDIT2+7 




BNE 


ED I T 1 


ED I T2 


SF 


ED I T2+8 




CM 


EDIT2+10,62,9 




BNH 


BB2 


E43 


BTM 


ERROR ,29,1011 




BB2 




NG2 


TFM 


LBPROC-1 , INPUT+24 




CM 


1 RPRnr-1 .?4.^>in 




BNE 


E29 


FMATRP 


AM 


1 RPRnr-1 . ? 




CF 


SW200 




CM 


LBPROC-1 ,4 ,610 




BE 


FMATE2 




CM 


LBPROC-1 ,21,610 




BE 


FMATTC 




CM 


LBPROC-1 ,23,610 




BE 


TERM 


SW201 


CM 


LBPROC-1 ,20,610 




BE 


E29 




CM 


LBPROC-1 ,21,610 




BE 


FMATRP 


Z3 


C M 






BL 


MLMl 




S F 


SW200 


FMATS Z 


DC 


2,0, *— 1 


SW200 


AM 


LBPROC-1 , 2 




AM 


FMATSZ , 1 




B7 


Z3 


FMATTC 


AM 


LBPROC-1 , 2 




B7 


FMATET 


MLMl 


CM 


FMATSZ ,03,10 




BL 


MLM 




BTM 


ERR0R9 ,41 , 10 


MLM 


TDM 


FMATSZ , 




CM 


LBPROC-1 ,48,610,H 




BE 


FMATH 




CM 


LBPROC-1, 46, 610, F 




BE 


FMATF 




CM 


LBPROC-1 ,49,610, I 




BE 


FMAT I 




CM 


LBPROC-1 ,45 ,610 ,E 




BE 


FMATF 




CM 


LBPROC-1 ,67, 610, X 




BE 


FMATX 




CM 


LBPROC-1 ,41 ,610 , A 




BE 


FMATA 




CM 


1 RPRnr-1 .?4.6in. ( 




BNE 


E29 




B7 


FMATRP 


FMATH 


BNF 


E43,SW200 




BT 


EDIT, LBPROC-1 




AM 


EDIT2+10,1,10 




MM 


EDIT2+10,2,10 




A 


LBPROC-1 ,99 




BNR 


Z4 , LBPROC-1, 11 




B7 


E43 



,,,DOES FORMAT END WITH A RIGHT 
, ,, PARENTHESIS 

,,,IF IT ENDS WITH A COMMA, INDICATE 
, , ,CONTINUATION SHOULD FOLLOW. 



,,,CHECK SIZE OF HOLLERITH FIELD 



, , , CHECK H-TYPE FORMAT 



0- 
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LOCTN 


OP 


P/L 


Q 


P6/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


05186 


14 


099 3§ 


00023 


04320 


Z4 


CM 


LBPROC-1 f 23 » 6 10 


05198 


47 


04662 


01200 


04330 




BNE 


PMATRP4- 1 7 


052 10 


1 1 


09935 


60002 


04340 


TFRM 


AM 




05222 


45 


04662 


09935 


043 50 




6NR 


PMATRP+1 ? .1 RPROr— 1 . 1 1 


05234 


49 


02534 




04360 




B7 


END 


05242 


11 


09935 


60002 


04370 


FMATF 


AM 


LBPR0C-1»2 » 


05254 


27 


09936 


09935 


04380 




BT 


LB PROC, LBPROC-1 


05266 


44 


04100 


09960 


04400 




BNF 


E29»SW20 


05278 


44 


05298 


09972 


04410 




BNF 


FMATF2 , SW2 1 


05290 


49 


04100 




04420 




B7 


E29 


05298 


12 


09935 


60002 


04430 


FMATF2 


SM 


LBPROC-1 »2 


05310 


14 


09935 


00063 


04440 




CM 


LBPROC-lf 3»610 


05322 


46 


04100 


01200 


04450 




BE 


E29 


05334 


11 


09935 


60002 


04460 




AM 


LBPROC-1 1 2 


05346 


14 


09935 


00023 


04470 


FMATR 


CM 


LBPROC-1 » 23 ,610 


05358 


47 


05494 


01200 


04480 




BNE 


HERE 


05370 


11 


09935 


60002 


04490 




AM 


LBPROC-1, 2 


05382 


45 


04746 


09935 


04500 




BNR 


SW201 » LBPROC-1 ,11 


05394 


49 


02534 




04510 




B7 


END 


05402 


1 1 


09935 


60004 


04520 


FMATA 


AM 


1 RPRnr-1 .4 


054 14 


14 


09935 


000?0 


04530 




CM 


UDrlNLIV.^ X, lU,OXvJ 


05426 


46 


04600 


01300 


04540 




BNL 


E43 


05438 


12 


09935 


60002 


04550 




SM 


1 RPRnr— 1 . ? 


5450 


14 


099 3^ 


000? 5 


04560 




CM 


LDrKUo X, iD,OXU 


5462 


46 


04600 


mi net 


U*r^ 1 \l 




D n 




,05474 


1 1 


09935 


60002 


04580 




AM 


1 RPRnr — 1 . 7 

LDrrSUO X , £. 


05486 


49 


05346 




04590 




B7 


FMATR 


05494 


14 


0993& 


00091 


04600 


HERE 


CM 


1 RPRnr-1 . ? 1 .AID 


05506 


46 


04650 


01200 


04610 




BE 


FMATRP 


05518 


14 


09935 


00064 


04620 




CM 


LBPROC-1 ,4,610 


05530 


47 


04600 


01200 


04630 




BNE 


543 


05542 


14 


09935 


00023 


04640 


FMATET 


CM 


LBPROC-1 ,23,610 


05554 


47 


04662 


01200 


04650 




BNE 


FMATRP+12 


05566 


49 


05210 




04660 




B7 


TFRM 


05574 


1 1 


09935 


60002 


04670 


FMAT E2 


AM 


LBPROC-1 , 2 


055 86 


45 


05542 


09935 


04680 




BNR 


FMATET, LBPROC-1 , 11 


05598 


49 


02534 




04690 




B7 


END 


05606 


11 


09935 


60002 


04700 


FMAT I 


AM 


LBPROC-1, 2 , 


05618 


27 


09936 


09935 


04710 




BT 


LB PROC , LBPROC-1 


05630 


44 


04 100 


09960 


04730 




BNF 


E29 ,SW20 


05642 


44 


04100 


09972 


04740 




BNF 


E29,SW21 


05654 


49 


05346 




04750 




B7 


FMATR 


05662 


11 


09935 


60002 


04760 


FMATX 


AM 


LBPR0C-lt2 , 


05674 


44 


04100 


04830 


04770 




BNF 


E29»SW200 


05686 


49 


05 346 




04780 




B7 


FMATR 


05694 


45 


14886 


00427 


04790 


PADS E 


BNR 


E20 , INPUT+22 


05706 


49 


02534 




04800 




B7 


END 


057 14 


16 


09935 


60429 


048 10 


REREAD 


T FM 


LBPROC-1 , IN PUT+24 , 


05 726 


49 


05778 




04820 




B7 


PI iNr H-t-?4 

r \J n~ c.^ 


05734 


16 


09935 


6042 5 


04830 


READ 


TFM 


LBPROC-1 » INPUT+20 » 


5 746 


49 


05 77 8 




04840 




B7 




05754 


16 


09935 


60427 


04850 


PUNC H 


TFM 


1 RPRnr — 1 . INPIIT + ?? 


05766 


32 


05766 


00000 


04860 


SW54 


SF 


SW54 


0577 8 


32 


05 77 8 




04870 


SW52 


S F 


SW52 


5790 


16 


06317 


\J\J\JvKJ 


04880 




TFM 


MP . n . 1 n 


05802 


45 


05934 


0993^ 


04890 


lOPROC 


BNR 


Z5 , LBPROC-1 ,11 , 


058 14 


17 


02166 


0002 1 


04900 




BTM 


ERROR, 21, 10 


05 826 


44 


05846 


04372 


049 10 




BNF 


CF524,SW1 


05838 


49 


02534 




04920 




B7 


END 


05 846 


33 


05778 


00000 


04930 


CF524 


CF 


SW52 


05858 


33 


05766 


00000 


04940 




CF 


SW54 


05870 


14 


06317 


00060 


04950 




CM 


NP ,0 ,10 


05882 


47 


02534 


01200 


04960 




BNE 


END 


05894 


33 


01286 


00000 


04970 




CF 


NSEEK 


05906 


49 


02534 




04980 




B7 


END 


05914 


17 


02132 


00023 


04990 


lOBl 


BTM 


ERR0R9,23, 10 


05926 


49 


06 118 




05000 




B7 


lOOX 


05934 


44 


06014 


08678 


05010 


Z5 


BNF 


NTST5,SW2 


05946 


14 


09935 


00024 


0501 2 


lODl 


CM 


LBPROC-1, 24, 610 


05958 


47 


0616 2 


01200 


050 14 




BNE 


lOE 


05970 


11 


06317 


00061 


05016 




AM 


NP,1,10 


05982 


1 1 


09935 


60002 


05018 


ALP 


AM 


LBPROC-1 , 2 


05994 


45 


05946 


09935 


05020 


CONT 10 


BNR 


lODl ,LBPR0C-1 t 11 


06006 


49 


05814 




05024 




B7 


IOPROC+12 


06014 


14 


09935 


000?0 


05030 


NTST5 


CM 


LBPROC-1, 70, 610 


06026 


47 


05914 


01300 


05040 




BL 


lOBl 


06038 


27 


09936 


09935 


05050 




BT 


LBPROC, LBPROC-1 


06050 


44 


05914 


09960 


05070 




BNF 


lOBl ,SW20 


06062 


44 


05914 
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, ,,CHECK F-TYPE AND E-TYPE FORMAT 



,,, CHECK A-TYPE FORMAT 



,,, CHECK I-TYPE FORMAT 



,,, CHECK X-TYPE FORMAT 



, , , CHECK REREAD 
,,, CHECK READ 
,,, CHECK PUNCH 



,,, INPUT-OUTPUT PROCESSOR 



,,, COMMA MISSING IN AN I-O STATEMENT 
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,,,HAS THIS VARIABLE BEEN DIMENSIONED 



,,,IS THIS STATEMENT CONTINUED ON NEXT 
, , jCARD 



,,,IS A DO INDEX BEING MODIFIED WITHIN 
f,,THE LOOP 

.CLEAR UNDEFINED FLAG ON THIS LABEL 
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,,,PUT LABEL IN TELA, TBLB OR TBLD 



,,,SET UNDEFINED FLAG ON LABEL 
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07 28 5 


6000 1 


071 20 


ADDl 


AM 


TLU-1 t 1 


A O O "2 A 




08 378 


07285 


071 30 




BNF 


NOFLG, TLU-1 , 11 


08242 


33 


07 285 


00000 


07140 




CF 


TLU-1 , ,6 


082 54 


24 


07 244 


07285 


07150 




C 


ARG, TLU-1 » 11 


08266 


D C. 


07 285 


A A A A A 

UUUOU 


071 60 




S F 


TLU-1 , , 6 


08278 


46 


08402 


1200 


7170 




BE 


EQUAL 


08290 


44 


08 314 


07274 


07180 


RESET 


BNF 


RESETR , Al 


08302 


1 2 


07285 


60011 


07190 




SM 


TLU-1 ,11 


083 14 


1 1 


07285 


6000 1 


7210 




AM 


TLU-1,1 


08326 


49 


07394 




07220 




B7 


REC 


08334 


44 


08 358 


07274 


72 30 


RESETl 


BNF 


RESIR, Al 


08346 


1 2 


07 28 5 


600 1 1 


07240 




S M 


TLU-1 ,11 


08358 


1 1 


07 28 5 


60009 


07260 


RESIR 


AM 


TLU-1 , 9 


08370 


49 


07394 




07270 




B7 


REC 


08378 


24 


07244 


07285 


7280 


NOFLG 


C 


ARG, TLU-1, 11 


08390 


47 


08 290 


1 200 


07290 




BNE 


RESET 


08402 


33 


07346 


A A A A A 

00000 


07300 


EQUAL 


CF 


S W35 


084 14 


44 


084 38 


07285 


7310 




BNF 


r 1 X , 1 LU- 1,11 


842 6 


3 2 


07 35 8 


A A A A A 
UUUU U 


07320 




S F 


S W3 6 




AA 


8462 


A 7 "5 7 A 


7330 


r 1 A 


DIM r 


c T Y D A 1 


08450 




07285 


600 1 1 


A 7^A A 




SM 


T LU— 1,11 


08462 


1 1 


07285 


60001 


07360 


r I XR 


AM 


TLU-1 , 1 


08474 


49 


07406 




07370 




B 7 


UU 1 1 LU 


08482 


44 


07486 


02652 


07380 


STE 


BNF 


D □ D 1/ C IJ 1 

BKdIs , oW 1 D 


08494 


33 


0265 2 


00000 


07390 




CF 


SWl 3 


08506 


16 


02131 


00032 


07400 




T FM 


CnDODA 1 ^1 lA 

tRKUKV— 1 t it^i 10 


085 1 8 


1 5 


02567 


A A A A A 

uuuuy 


741 




TDM 


P3+ 1 , 9 


08530 


16 


025 72 


68550 


07420 




T FM 


P3+6, E32B 


08542 


49 


02132 




07430 




B 7 


C D D n D A 


08550 


1 5 


02567 


A A A A O 

OOOU^ 


7440 


E32B 


TDM 


P3+ 1,2 


08562 


49 


07486 


08634 


07450 




B 


BRBK ,T0PT2 


Uo -> f D 




A A n A o 
UUUU/1 




07460 


DC PT 2 


DC 


2 , 


n Q C Q 1 
U o D c5 :5 




AA An Q 
UUUUo 




A 7 A 7 A 

U 1 I u 




UU 


Q 7Q^C1AA9A 
O, 1 ^DOUU/iU 


085 8 8 




A A n A 
UUUU 5 


t2 39 4 


074 80 




DS A 


AR I T H 


08 589 




0000 1 




07490 




DC 


1 , ' 


n Q c Q n 
U t) D V u 


3 i 




000 D 8 


A 7 £^ n A 
U f D uu 


r 1 D T 9 


T D 
1 K 


nr c — A "aft 
UU 1 — o , a o 


086 02 


3 1 


A A A O O 

UUU 50 


08 569 


07504 




TR 


38 , DC r 1 d-( 


n Q A 1 A 


i D 


A A A O 9 

UUU ^1 c. 


A A A A Q 

uuuuy 


07510 




TDM 


22 ,9 


08626 


49 


A A A A A 
U U U U U 




075 1 5 




B7 




08634 


27 


A A O O O 


0088 1 


07520 


TO PT2 


B T 


RBCHK jRBCHK— ! 


08646 


3 1 


A A A Q O 

UUU :io 


012 53 


0752 4 




TR 


38 ,DCF— 6 


0865 8 


49 


13034 




075 30 




B7 


FINISH 


08666 


16 


09935 


60417 


07540 


CIO 


TFM 


LBPROC-1 , INPUT+12 


08678 


32 


08678 


00000 


07550 


S W2 


SF 


SW2 


08690 


33 


04372 


00000 


07560 




CF 


SWl 


08702 


49 


05802 




07570 




B7 


lOPROC 


8710 


33 


0437 2 


00000 


075 80 


CFRMT 


C F 


SWl 


Uo f 


32 


86 78 


A A A A A 

uuuuu 


07590 




o r 


S W2 


08 /'34 


4 9 


03884 




07600 




B 7 


Z 1 


Uo 1 He 




A 1 K AA 

u i -> oo 


AA A AA 

UUUUU 


n 7 A 1 A 

U / o i u 


R r T D 
D V? 1 K 


U r 


C LIT D C 


n ft 7 


A 


A Q 7 7 A 
Uo \ i H 


A A A^ 7 


076 20 




BN R 


DblKU,lNrUI+ot 


08766 


49 


25 34 




07630 




B7 


END 


08 774 


14 


00437 


00045 


07640 


BGTRC 


CM 




087 86 


46 


02534 


1 200 


07650 




B E 


END 


08798 


14 


00437 


00046 


07660 




CM 


INPUT+32 , 46 , 10 


08 810 


46 


25 34 


1 200 


076 70 




BE 


END 


08822 


1 7 


2 166 


000i9 


07680 




BTM 


ERROR ,19,10 


08834 


49 


02534 




07690 




B7 


END 


08845 




00005 




07700 




DS 


5 


Uo o'tO 


A 


A Q Q 7 A 

Uoo f U 


AQQ -3 C 


A77 1 A 
U 1 / i. u 


c A D D C ft 


Dl>JK 


DDI 1 ,LDrKUL i,ii 


08 858 


1 7 


21 66 


000%5 


07720 


E 1 5 


BTM 


CDDOD IC lA 


08 87 


9 7 


Q Q "a A 


AQQ -2 C 
U V 7 J -> 


n7 7 ■sn 

U f ( dU 


BB T T 


B T 


1 RDRnr.i RPonr — 1 

LD riSUV^ , L D r ISUU 1 


n p ft ^ 


4 5 


U o o o 


U V V J 5 


01'7^0 




BNR 


pi K.i RPRnr — 1 • 1 1 

C!iI3,LDrl%UU 1,1X 




AA 


08858 


n o Q A n 
u wou 


n7 7 A A 

u * / ou 




DIN r 


C 1 c C u 9 A 
tiD t oVI C.U 


08906 


44 


0885 8 


0997 2 


A 7 7 7 A 
U f 1 1 u 




BNF 




089 18 


4 9 


08845 




077 80 




D 7 


CPDDCD— 1 A 


08 926 


24 


099 16 


072 56 


07790 


BGSG 


c 


nnCCA Al CAD 


08 93 8 


47 


0906 2 


1 200 


07800 




BNE 


El 


08 95 


16 


09935 


60441 


07810 




TFM 


LB PROC — 1 , INPUT + 36 


08962 


17 


08846 


68974 


07820 




BTM 


SGPRSB , BGSGP 


08 974 


26 


099 16 


09926 


07830 


BGSGP 


TF 


OPSEG ,LABEL-2 


08 986 


26 


07 244 


099 26 


07840 




T F 


ADA 1 ARCl — 9 


08998 


17 


07262 


39995 


07860 


CZIO 


BTM 


TLUl ,TBLAl+9 


09010 


44 


09042 


07346 


07870 




BNF 


TBS36,SW35 


09022 


17 


02132 


00064 


07880 


E4 


BTM 


ERR0R9,4, 10 


09034 


49 


02534 




07890 




B7 


END 


09042 


44 


02534 


07358 


07900 


TBS36 


BNF 


END,SW36 



,,, MATCH HAS BEEN FOUND AND LABEL WAS 
, , , DIMENSIONED 



,,,LABEL FOUND IN TABLE 



,,,SYMBOL TABLE EXCEEDED 



,,,DCF DIAG PART 2 



,,,CHECK CONTINUATION I-O 

.CHECK CONTINUATION FORMAT 
,,,CHECK BEGIN TRACE 



,,,SEGMENT + PROCEDURE SUBROUTINE 



,,, CHECK BEGIN SEGMENT 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




09054 


49 


09022 




07910 




B7 


E4 




09062 


17 


02132 


oooei 


07920 


El 


BTM 


ERR0R9,1,10 




09074 


49 


02534 




07930 




B7 


END 




09082 


33 


01566 


00000 


07940 


BGPR 


CF 


SWTRE 




09094 


24 


09262 


07256 


07950 




C 


OPPROC, CLEAR ,,, CHECK 


BEGIN PROCEDURE 


09106 


47 


09062 


01200 


07960 




BNE 


El 




091 18 


16 


09935 


60445 


07970 




TFM 


LBPROC-1 , INPUT+40 




09130 


17 


08846 


69142 


07980 




BTM 


SGPRSB , BGPRP 




09142 


26 


07244 


09926 


07990 


BGPRP 


TF 


ARG,LABEL-2 




09154 


26 


09262 


09926 


08000 




TF 


OPPROC ,LABEL-2 




091 66 


32 


07602 


00000 


08010 




SF 


SW30 




09178 


17 


07262 


39995 


08030 


CZll 


BTM 


TLUl,TBLAl+9 




09190 


44 


09210 


07346 


08040 




BNF 


PROCl ,SW35 




09202 


49 


02534 




08050 




B7 


END 




092 10 


11 


07285 


60010 


08060 


PROCl 


AM 


TLU-1,10 




09222 


33 


07285 


00000 


08070 




CF 


TLU-1, ,6 




09234 


44 


09888 


07358 


08080 




BNF 


ERR3 ,SW36 




09246 


49 


02534 




08090 




B7 


END 




09262 




00010 




08100 


OPPROC 


DC 


10,0 ,,,HOLDS 


OPEN PROCEDURE LABEL 


09264 


32 


09264 


00000 


08110 


CLSG 


SF 


CLSG ,,,CHECK 


CALL SEGMENT 


09276 


16 


09935 


60439 


08120 




TFM 


LBPROC-1, INPUT+34 




09288 


17 


08846 


69300 


08130 


CLSGl 


BTM 


SGPRSB, CLSGP 




09300 


26 


07 244 


09926 


08140 


CLSGP 


TF 


ARG,LABEL-2 




09312 


32 


07602 


00000 


08150 




SF 


SW30 




09324 


32 


07510 


00000 


08160 




SF 


SW32 




09336 


17 


07 26 2 


39995 


08180 


CZ12 


BTM 


TLUl ,TBLAl+9 




09348 


44 


15366 


09540 


08190 




BNF 


EN02, EXCPR 




09360 


33 


09540 


00000 


08200 




CF 


EXCPR 




09372 


49 


02534 




08210 




B7 


END 




09380 


32 


01610 


00000 


08220 


ENDSG 


SF 


SEGFLG 




09392 


16 


09935 


60437 


08230 




TFM 


LBPROC-1 , INPUT+32 




09404 


17 


08846 


69416 


08240 




BTM 


SGPRSB , ENDSGP 




09416 


24 


09916 


09926 


08250 


ENDSGP 


C 


OPSEG, LABEL-2 




09428 


47 


0906 2 


01200 


08260 




BNE 


El 




09440 


26 


099 16 


07256 


08270 




TF 


OPSEG, CLEAR 




09452 


33 


01566 


00000 


08280 


ENDTR 


CF 


SWTRE 




09464 


49 


2534 




08290 




B7 


END ,,,END TRACE STATEMENT -NO CHECKING 


09472 


16 


09935 


60441 


08300 


ENDPR 


TFM 


LBPROC-1 , INPUT+36 ,,,CHECK 


END PROCEDURE STATEMENT 


09484 


17 


08846 


69496 


08310 




BTM 


SGPRSB , ENDPRP 




09496 


24 


09262 


09926 


08320 


ENDPRP 


C 


OPPROC , LABEL-2 




09508 


47 


09062 


01200 


08330 




BNE 


El 




09520 


26 


09262 


07256 


08340 




TF 


OPPROC, CLEAR 




09532 


49 


09452 




08350 




B7 


ENDTR 




09540 


16 


09935 


60449 


08360 


EXCPR 


TFM 


LBPROC-1, INPUT+44 ,,,CHECK 


EXECUTE PROCEDURE STATEMENT 


09552 


32 


09540 


00000 


08370 




SF 


EXCPR 




09564 


49 


09288 




08380 




B7 


CLSGl 




09572 


16 


09935 


60429 


08390 


RETURN 


TFM 


LBPROC-1 , INPUT+24 ,,,CHECK 


RETURN STATEMENT 


09584 


17 


08846 


69596 


08400 




BTM 


SGPRSB , RETURP 




09596 


24 


09262 


09926 


08410 


RETURP 


C 


OPPROC , LABEL-2 




09608 


47 


09062 


01200 


08420 




BNE 


El 




09620 


49 


02534 




08430 




B7 


END 




09628 


33 


01566 


00000 


08440 


SEGMT 


CF 


SWTRE 




09640 


26 


09916 


07256 


08450 




TF 


OPSEG, CLEAR 




09652 


32 


01610 


00000 


08460 




SF 


SEGFLG 




09664 


44 


09022 


09264 


08470 




BNF 


E4,CLSG ,,,CHECK 


SEGMENT STATEMENT 


09676 


45 


09696 


00431 


08480 




BNR 


SEGl , INPUT+26 




09688 


49 


08858 




08490 




B7 


E15 




09696 


16 


09935 


60431 


08500 


SEGl 


TFM 


LBPRGC-1 , INPUT+26 




09708 


27 


09936 


09935 


08510 


SEG2 


BT 


LBPROC, LBPROC-1 




09720 


44 


08858 


09960 


08530 




BNF 


E15,SW20 




09732 


44 


08858 


09972 


08540 




BNF 


E15,SW21 




09744 


26 


07 244 


09926 


085 50 




T F 


ARG, LABEL-2 




09756 


32 


07602 


00000 


08560 




SF 


SW30 




09768 


17 


07262 


39995 


085 80 


C Z 1 3 


BTM 


TLUl ,TBLAl+9 




09780 


44 


09844 


07346 


08590 




BNF 


SEG3,SW35 




09792 


45 


09812 


09935 


08600 


SEG4 


BNR 


ADSEG, LBPROC-1, 11 




09804 


49 


02534 




08610 




B7 


END 




098 12 


1 1 


09935 


60002 


08620 


ADSEG 


AM 


LBPROC-1, 2 




09824 


45 


09708 


09935 


08630 




BNR 


SEG2, LBPROC-1, 11 




09836 


49 


02534 




08640 




B7 


END 




09844 


1 1 


07 28 5 


60010 


08650 


SEG3 


AM 


TLU-1 , 10 




09856 


33 


07285 


00000 


08660 




CF 


TLU-1 , ,6 




09868 


44 


09888 


07358 


08670 




BNF 


ERR3,SW36 




09880 


49 


09792 




08680 




B7 


SEG4 




09888 


17 


02132 


00063 


08690 


ERR3 


BTM 


ERR0R9,3, 10 




09900 


49 


09792 




08700 




B7 


SEG4 




099 16 




00010 




087 10 


OPSEG 


DC 


10,0 ,,,HOLDS 


OPEN SEGMENT LABEL 


09928 




00012 




08720 


LABEL 


DC 


12,0 




09929 




0000 1 




08730 




DC 


1, • 




09934 




00005 




08740 




DC 


5,0 




09936 


26 


09928 


07256 


08750 


LBPROC 


T F 


LABEL, CLEAR , , , SUBROUT INE TO PROCESS LABELS 


09948 


16 


09971 


00061 


08760 




TFM 


NCHAR, 1,10 




09960 


33 


09960 


00000 


08770 


SW20 


CF 


SW20 




09970 








08780 




DORG 


»-l 




09971 




00002 




08790 


NCHAR 


DC 


2,0 




09972 


33 


09972 


00000 


08800 


SW21 


CF 


SW21 




09982 








08810 




DORG 


»-l 




09983 




00002 




08820 


NSUB 


DC 


2,0 
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LQCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


09984 


33 


09984 


00000 


08830 


SW22 


CF 


SW22 


09994 








08840 




DORG 


*-l 


09995 




00002 




08850 


NCHARl 


DC 


2,0 


09996 


33 


09996 


00000 


08860 


SW23 


CF 


SW23 


10008 


33 


10678 


00000 


08870 




CF 


SW99 


10020 


33 


10020 


00000 


08880 


SW24 


CF 


SW24 


10032 


33 


1 2258 


00000 


08890 




CF 


DIMFLG 


10044 


33 


10044 


00000 


08900 


SW47 


CF 


SW47 


10056 


33 


10056 


00000 


08910 


SW48 


CF 


SW48 


10068 


45 


10100 


09935 


08920 




BNR 


J15 ,LBPR0C-1,11 


10080 


16 


02165 


000+2 


08930 


E12 


TFM 


ERROR-1, 12,10 


10092 


49 


02166 




08940 




B7 


ERROR 


10100 


14 


09935 


000?0 


08950 


J15 


CM 


LBPROC-1,70,610 


101 12 


46 


10260 


01300 


08960 




BNL 


SET20 


10124 


14 


09935 


00063 


08970 




CM 


LBPROC-1,03,610 


10136 


46 


10248 


01200 


08980 




BE 


SET22 


10148 


14 


09935 


00055 


08990 




CM 


LBPROC-1,55,610 


10160 


46 


10272 


01100 


09000 




BH 


SCAN 


10172 


14 


09935 


00049 


09010 




CM 


LBPROC-1 ,49,610 


10184 


46 


10228 


01300 


09020 




BNL 


FXD 


10196 


14 


09935 


00034 


09030 




CM 


LBPROC-1 ,34,610 


10208 


47 


10080 


01100 


09040 




BNH 


E12 


10220 


49 


10272 




09050 




B7 


SCAN 


10228 


32 


09972 


00000 


09060 


FXD 


SF 


SW21 


10240 


49 


10272 




09070 




B7 


SCAN 


10248 


32 


09984 


00000 


09080 


SET22 


SF 


SW22 


10260 


32 


09960 


00000 


09090 


SET20 


SF 


SW20 


10272 


16 


10290 


09918 


09100 


SCAN 


TFM 


ST0R+6,LABEL-10 


10284 


26 


00000 


09935 


091 10 


STOR 


TF 


, LBPROC-1 , 11 


10296 


11 


09935 


eooo2 


09120 


GOBK 


AM 


LBPROC-1 ,2 


10308 


45 


10606 


09935 


09130 




BNR 


CHL33 , LBPROC-1 , 11 


10320 


44 


10340 


09960 


09140 


DONE 


BNF 


J16 ,SW20 


10332 


49 


10364 




09150 




B7 


J17 


10340 


14 


09971 


00066 


09160 


J16 


CM 


NCHAR , 6 , 10 


10352 


46 


10080 


01300 


09170 




BNL 


E12 


10364 


14 


09971 


00061 


09180 


J17 


CM 


NCHAR, 1, 10 


10376 


46 


10586 


01200 


09190 




BE 


TTSW22 


10388 


44 


10432 


09960 


09200 


GONE 


BNF 


WIPE ,SW20 


10400 


44 


10420 


09984 


09210 




BNF 


ST21 ,SW22 


10412 


49 


10432 




09220 




B7 


WIPE 


10420 


32 


09972 


00000 


09230 


ST21 


SF 


SW21 


1043 2 


16 


10450 


69919 


09240 


WIPE 


TFM 


CLF+6 ,LABEL-9 


10444 


33 


00000 


00000 


09250 


CLE 


CF 




10456 


11 


10450 


60002 


09260 




AM 


CLF+6 ,2 


10468 


14 


10450 


69929 


09270 




CM 


CLF + 6 ,LABEL+1 


10480 


47 


10444 


01200 


09280 




BNE 


CLF 


10492 


44 


105 06 


09960 


09290 




BNF 


*+14,SW20 


10504 


42 






09294 




BB2 




10506 


44 


10520 


10678 


09300 




BNF 


SUBN,SW99 


10518 


42 






09310 


BB2 


BB2 




10520 


32 


10520 


00000 


09320 


SUBN 


SF 


SUBN 


10532 


49 


12018 




09330 




B7 


FFNC 


10540 


33 


105 20 


00000 


09340 


SUBF IN 


CF 


SUBN 


10552 


44 


10566 


07346 


09350 




BNF 


^f + 14,SW35 


10564 


42 






09354 




BB2 




10566 


16 


02165 


00040 


09360 




TFM 


ERROR-1, 40, 10 


10578 


49 


02166 




09370 




B7 


ERROR 


10586 


44 


10388 


09984 


09380 


TTSW22 


BNF 


GONE ,SW22 


10598 


49 


10722 




09390 




B7 


Ell 


10606 


14 


09935 


00033 


09400 


CHL33 


CM 


LBPROC-1 , 33 ,610 


10618 


46 


10898 


01100 


09410 




BH 


AN 


10630 


14 


09935 


00063 


09420 




CM 


LBPROC-1 ,03 ,610 


10642 


46 


10710 


01200 


09430 




BE 


TSW22 


10654 


14 


09935 


000£4 


09440 




CM 


LBPROC-1 ,24,610 


10666 


47 


10786 


01200 


09450 




BNE 


PMTEST 


10678 


32 


10678 


00000 


09460 


SW99 


SF 


SW99 


10690 


44 


1 1066 


09960 


09470 




BNF 
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OPERANDS AND REMARKS 

RETUR 
SW29 

BNCH+6, FUDGE 
TSSW27 

ERROR-1,16,10 

ERROR 

BB+1 ,2 

SUBSCR,SW35 

ARG,LABEL-2 

FF2+6,ARG-1 

FF1+6,ARG 

ARG-1,,2 

ARG, 0,210 

FF3 

FFl+6,2 
FF2+6,2 
FF2 

FFl+6,46,610 
LUSUB 

FFl+6,0r610 
BB+1, 9 
BB+6,TBLFB 
TLU-1 ,TBLF 
TLU 

BB+1, 2 
SUBFIN,SUBN 

SET48,SW35 
E27,SW73 
DIMFLG 
GONE 

ERR0R9-1,27, 10 

P3+6,G0NE1 

P3+l,9 

ERR0R9 

P3+l,2 

SUBSCR+12 

SW48 

GONE 

E12,SW20 

SW47 

GOBK 

SW61 ,,,CHECK ARITHMETIC STATEMENTS 

*-3 

2,0 

2,0 

INPUT+12,70, 10 
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ERROR, 30, 1011 
INPUT+12,41, 10 

E30 

LBPROC , INPUT+12 
TST24,SW48 
ERR0R9,40, 10 
SW61 , ,5 
SW65 

ISE,SW65 
LBPROC-1 ,2 
LBPROC, LBPROC-1 
Kl ,SW20 
E31 

K2 ,SW48 
E31 

K31,SW24 
E31 

T12,SW24 
SW63 

K3, LBPROC-1, 11 
ERROR, 30, 1011 
LBPROC-1 ,23,610 
T 

LBPROC-1, 4, 610 
K32 

ERROR, 30, 1011 
LBPROC-1, 2 
SW65 

ARG,LABEL-2 

SW30 

TLU,TBLA 
TSW35,SW37 
ERR0R9 ,31 , 10 
CLFGUD, SW35 
SW63 
TLU-1, 1 
TLU-1 , ,6 
SW63 
K5,SW24 
LBPROC-1, 2 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


1 2886 


14 


09935 


00033 


11460 


K5 


CM 


LBPROC-1,33,610 


12898 


47 


12430 


01200 


11470 




BNE 


E30 


12910 


16 


13840 


i2430 


11480 




TFM 


L24+18,E30 


12922 


33 


12922 


00000 


11490 


SW64 


CF 


SW64 


1 2934 


32 


1 2934 


00000 


11500 


SW66 


SF 


SW66 


12946 


33 


12946 


00005 


11510 


SW62 


CF 


SW62 ,5 


1 2958 


33 


1 2526 


00000 


11520 




CF 


SW63 


12970 


16 


1 2525 


60000 


1 1 530 




TFM 


SW63-1 ,0 


1 2982 


16 


12957 


eoooo 


11540 




TFM 


SW62+11 ,0 


12994 


33 


12521 


00000 


11550 




CF 


SW63-5 


1 3006 


33 


1 2953 


00000 


11560 




CF 


SW62+7 


13018 


16 


12405 


oooeo 


11570 




TFM 


NEXP,0, 10 


1 3030 


16 


1 3309 


*2526 


11580 




TFM 


MODE + 1 1 » SW63 


1 3042 


1 1 


09935 


90002 


1 1 590 


RET 


AM 


LBPROC-1 , 2 


13054 


16 


132 36 


i2958 


11600 




TFM 


CNTRS+6,SW62+12 


13066 


45 


13086 


09935 


11610 




BNR 


K6 , LBPROC-1, 11 


13078 


49 


12430 




11620 




B7 


E30 


13086 


14 


09935 


00040 


11630 


K6 


CM 


LBPROC-1 ,40,610 


13098 


46 


13250 


01100 


11640 




BH 


TEN 


13110 


14 


09935 


00063 


11650 




CM 


LBPROC-1, 03, 610 


13122 


46 


13250 


01200 


11660 




BE 


TEN 


13134 


14 


09935 


OOO+O 


11670 




CM 


LBPROC-1, 10,610 


13146 


46 


13042 


01200 


11680 




BE 


RET 


13158 


14 


09935 


00020 


11690 




CM 


LBPROC-1, 20, 610 


13170 


46 


13042 


01200 


11700 




BE 


RET 


13182 


14 


09935 


00024 


11710 




CM 


LBPROC-1 ,24,610 


13194 


47 


12430 


01200 


11720 




BNE 


E30 


13206 


44 


13042 


12922 


11730 




BNF 


RET,SW64 


13218 


22 


1 3236 


12405 


11740 




S 


CNTRS+6 ,NEXP 


13230 


11 


00000 


00061 


11750 


CNTRS 


AM 


,1,10 


13242 


49 


13042 




1 1760 




B7 


RET 


13250 


27 


09936 


09935 


11770 


TEN 


BT 


LBPROC , LBPROC-1 


13262 


44 


13318 


12946 


11790 




BNF 


ST62 ,SW62 


132 74 


44 


1 3362 


12934 


1 1800 




BNF 


ST66 , SW66 


13286 


44 


14086 


09972 


11810 




BNF 


FMOD , SW2 1 


13298 


44 


14098 


00000 


11820 


MODE 


BNF 


E33 


13310 


49 


14110 




11830 




B7 


TWELVE 


133 18 


32 


1 2946 


00000 


1 1 840 


ST62 


SF 


SW62 


13330 


44 


14110 


09972 


11850 




BNF 


TWELVE , SW21 


13342 


32 


12526 


00000 


1 1 860 




SF 


SW63 


13354 


49 


14110 




1 1 870 




B7 


TWELVE 


13362 


32 


1 2934 


00000 


1 1 880 


ST66 


SF 


SW66 


13374 


44 


13418 


09972 


11890 




BNF 


TST , SW21 


13386 


1 2 


13309 


6000 1 


1 1900 




SM 


MOUb+l 1,1 


13398 


32 


13309 


00000 


1 19 10 




S F 


MODE+1 1 , , 6 


13410 


49 


141 10 




1 1920 




B7 


TWELVE 


134 18 


44 


1 3442 


1 3309 


1 1930 


TST 


BNF 


K7 , MODE + 1 1,11 


13430 


17 


02132 


00033 


11940 




BTM 


ERR0R9,33, 10 


13442 


12 


13309 


60001 


11950 


K7 


SM 


MODE+1 1 , 1 


13454 


49 


14110 




11960 




B7 


TWELVE 


13462 


44 


13506 


10020 


11970 


K8 


BNF 


K9,SW24 


13474 


11 


09935 


60002 


11980 




AM 


LBPROC-1 ,2 


13486 


44 


13506 


12442 


11990 




BNF 


K9 ,SW61 


13498 


49 


12502 




12000 




B7 


E31 


13506 


44 


13526 


09960 


12010 


K9 


BNF 


NNM , SW20 


13518 


49 


13618 




12020 




B7 


NTST 


13526 


26 


07244 


09926 


120 30 


NNM 


TF 


ARG , LABEL-2 


13538 


32 


07602 


00000 


12040 




SF 


SW30 


13550 


32 


075 10 


00000 


12050 




S F 


SW32 


13562 


17 


07286 


■17826 


1 2060 




BTM 


TLU , TBL A 


13574 


44 


1 3594 


10020 


1 2070 




BF 


M X C T C 1 1 o y. 

NTS! ,SW24 


13586 


49 


13618 












13594 


44 


1 36 18 


16114 


12080 




BNF 


NTST , SW37 


13606 


17 


02132 


00031 


12090 




BTM 


E RR0R9 , 31,10 


13618 


22 


13236 


12405 


12100 


NTST 


S 


oNT Ri> + o , Nb X P 


13630 


45 


13650 


09935 


12110 




BNR 


KIO , LBPROC-1, 11 


13642 


49 


02534 




12120 




B7 


END 


13650 


44 


13722 


12922 


12130 


KIO 


BNF 


CMPR ,SW64 


13662 


43 


13722 


13236 


12140 




BD 


CMPR , CNTRS+6 , 1 1 


13674 


11 


13309 


60001 


12150 




AM 


MODE+1 1 , 1 


13686 


12 


12405 


00061 


12160 




SM 


NEXP , 1 , 10 


13698 


46 


13802 


01200 


12170 




BZ 


0FF64 


13710 


11 


132 36 


60001 


12180 




AM 


CNTRS+6 , 1 


13722 


14 


09935 


00064 


12190 


CMPR 


CM 


LBPROC-1 ,04 , 6 10 


13734 


47 


13822 


01200 


12200 




BNE 


L24 


13 746 


32 


13782 


00000 


12210 




SF 


Kll 


13758 


44 


13782 


12922 


1 2220 




BNF 


Kll ,SW64 


13770 


12 


13236 


00061 


12230 




SM 


CNTRS+6 ,1,610 


13782 


11 


09935 


60002 


12240 


Kl 1 


AM 


LBPROC-1 ,2 


13794 


49 


136 30 




12250 




B7 


NTST+12 


13802 


33 


12922 


00000 


12260 


0FF64 


C F 


SW64 


13814 


49 


13722 




12270 




B7 


CMPR 


13822 


14 


099 35 


00024 


12280 


L24 


CM 


LBPROC-1, 24, 610 


13834 


46 


12430 


01100 


12290 




BH 


E30 


13 846 


44 


13882 


13782 


12300 




BNF 


L241,K11 


13858 


33 


13782 


00000 


12310 




CF 


Kll 


13870 


46 


12430 


01200 


12320 




BE 


E30 


13882 


14 


09935 


000i4 


12330 


L241 


CM 


LBPROC-1, 14,610 



C4D DIAGNOSTICIAN 



LOCTN 


OP 


P/L 


Q 


PG/LN 


13894 


46 


13962 


01200 


12340 


13906 


14 


0993-5 


00023 


12350 


13918 


46 


1 2430 


01200 


12360 


13930 


14 


0993& 


00063 


12370 


13942 


46 


12430 


01200 


12380 


13954 


49 


1 3042 




12390 


13962 


11 


09935 


60002 


12400 


13974 


45 


1 3994 


09935 


12410 


13986 


49 


12430 




12420 


13994 


14 


09935 


000*4 


12430 


14006 


47 


13054 


01200 


12440 


14018 


32 


12922 


00000 


12450 


14030 


33 


12934 


00000 


12460 


14042 


11 


12405 


00061 


12470 


14054 


14 


12405 


00065 


12480 


14066 


46 


12430 


01 100 


12490 


14078 


49 


1 3042 




12500 


14086 


44 


141 10 


1 3309 


12510 


14098 


17 


021 32 


00033 


12520 


141 10 


44 


13462 


10056 


12530 


14122 


16 


1 2403 


0006 1 


12540 


]^4X34 


16 


14176 


i36 1 8 


12550 


14146 


32 


1 25 14 


00000 


12560 


141 58 


1 1 


09935 


60002 


12570 


141 70 


44 


13618 


12514 


1 2580 


14182 


45 


1420 2 


09935 


12590 


1 41 94 


49 


1 2430 




12600 


14202 


14 


099 35 


00024 


12610 


142 14 


47 


14246 


01200 


12620 


14226 


1 1 


12403 


00061 


12630 


14238 


49 


14158 




12640 


14246 


14 


09935 


00020 


12650 


14258 


46 


1415 8 


01200 


12660 


14270 


14 


09935 


OOOiO 


12670 


14282 


46 


14158 


01200 


12680 


14294 


27 


09936 


09935 


12686 


14306 


44 


14326 


12922 


12688 


143 18 


49 


14350 






14326 


44 


14382 


09972 


12691 


14338 


44 


14394 


1 3309 


1 2692 


14350 


33 


12922 


00000 


12706 


14362 


44 


144 14 


10056 


12710 


143 74 


49 


14 146 




12720 


14382 


44 


1435 


1 3309 


12721 


14394 


17 


02132 


00033 


12722 


14406 


49 


14350 




12 723 


144 14 


44 


14458 


10020 


12730 


14426 


1 1 


09935 


60002 


12740 


14438 


44 


14458 


12442 


12750 


14450 


49 


1250 2 




12760 


1445 8 


45 


14478 


09935 


12770 


14470 


49 


1 2430 




12780 


14478 


14 


09935 


00023 


12790 


14490 


46 


146 86 


01200 


12800 


14502 


14 


09935 


00064 


12810 


145 14 


46 


14806 


01200 


12820 


14526 


14 


09935 


00024 


12830 


14538 


46 


12430 


01300 


12840 


14550 


14 


09935 


00063 


12850 


14562 


46 


1 2430 


01200 


12860 


14574 


14 


09935 


000+4 


12870 


14586 


47 


14686 


01200 


12880 


14598 


1 1 


09935 


60002 


12890 


14610 


45 


14630 


09935 


12900 


14622 


49 


1 24 30 




12910 


14630 


14 


09935 


000i4 


12920 


14642 


47 


14674 


01 200 


12922 


14654 


32 


1 2922 


00000 


12924 


14666 


49 


14686 




129 30 


14674 


1 2 


0993 5 


60002 


12940 


14686 


44 


14706 


09960 


12950 


14698 


49 


1415 8 




12960 


14706 


26 


07244 


09926 


12970 


14718 


32 


07602 


00000 


12980 


14730 


32 


07510 


00000 


12990 


14742 


17 


07286 


i7826 


13000 


14754 


44 


14774 


10020 


13010 


14766 


49 


14158 






14774 


44 


14158 


16114 


13020 


14786 


17 


02132 


00031 


13030 


14798 


49 


14158 




13040 


14806 


12 


1 2403 


00061 


13050 


14818 


4 7 


14426 


01200 


13060 


14830 


33 


12514 


00000 


13070 


14842 


49 


14686 




13080 


14850 


16 


15261 


00060 


13090 


14862 


16 


09935 


60425 


13100 


14874 


45 


14906 


09935 


13110 



LABEL MNEM OPERANDS AND REMARKS 





B E 


S ETU P 




CM 


1 RPRnr-1 .23.610 




BE 


E30 




CM 






B E 


E30 




B7 


RET 


SETUP 


AM 


LBPR0C-1»2 




BNR 


K12 » LBPROC-1 , 11 




B7 


E30 


Kl 2 


CM 


LBPROC-1 1 14 ,610 




BNE 


RET+12 




S F 


SW64 




CF 


SW66 




AM 


NEXP , 1 , 10 




CM 






B H 


E3 




B7 


RET 


FMOD 


DIN r 


1 WtLVt,l'1UUt+ii , ii 


E 33 


BTM 


FRRHRQ . ■^■^ .in 


TWELVE 


B N F 


I\ O , o WtO 


A P D D 

A r r K 


T CM 


DC 1,1,10 




T FM 






SF 


SW65 


BIX 


AM 


1 R Dpnr— 1 9 




BNF 


I 1 O [ , O Ft v_J J 




BNR 


RTyQ.i RPRnr — 1.11 




B7 


E 30 


B I X9 


CM 


LBPROC-1, 24, 610 




BNE 


PL 




AM 


DC1,1,10 




B7 


BIX 


PL 


CM 


LBPROC-1 ,20,610 




BE 


BIX 




CM 


LBPROC-1 ,10,610 




BE 


BIX 




BT 


LBPR0C,LBPR0C-1 




BF 


PL12 ,SW64 




BNF 


FMnm . ^w? 1 

nilUL/J. f O Y1 X 




BNF 


F3'^T . MnnF+ 11.11 


PL 1 2 


C F 


SW64 




BNF 


k 1 /4. <; W A. R 




B 7 


^ppf^+24 


FMODl 


BNF 


PL12»M0DE+11, 11 


E 3 3 T 


BTM 






B 7 


P L 1 2 


K 1 4 


BNF 


CC ,SW24 


COOL 


A M 


1 R PRnr - 1 . ? 




BNF 


C C , S W 6 1 




B 7 


E 3 1 


CC 


BNR 


»+pn.i RPRnr — 1 i i 




B7 


E 3 




CM 


LBPROC-1 ,23,610 




B E 


THIRT 




CM 


LBPROC-1 ,04,610 




BE 


DECCNT 




CM 


LB PROC-1 ,24,610 




BNL 


E30 




CM 


LBPROC-1 ,03,610 




BE 


E30 




CM 


LBPROC-1 , 14,610 




BNE 


THIRT 




AM 


LBPROC-1 , 2 




BNR 


rrM3?.i RPRnr-1 . 1 1 




B7 


E30 


CC N3 2 


CM 


1 RPRnr — 1 .lA.fiin 




BNE 


SUB TT 




S F 


S W64 




B 7 


TH I RT 


SUBTT 


SM 


LBPROC-1, 2 


THIRT 


BNF 


K15 ,SW20 




B7 


BIX 


K 1 5 


TF 


ARC , LABEL-2 




SF 


SW30 




SF 


SW32 




BTM 


TLU ,TBLA 




BF 


BIX,SW24 




BNF 


BIX , SW37 




BTM 


ERR0R9 ,31,10 




B7 


BIX 


DECCNT 


SM 


DC 1,1, 10 




BNZ 


COOL 




CF 


SW65 




B7 


THIRT 


IF 


TFM 


NSN,0, 10 




TFM 


LBPROC-1 , INPUT+20 




BNR 


K16 , LBPROC-1, 11 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


14886 


17 


02166 


00020 


131 20 


E20 


BTM 


14898 


49 


01234 




13130 




B7 


14906 


14 


09935 


00064 


13140 


K16 


CM 


14918 


47 


15042 


01200 


13150 




BNE 


14930 


11 


09935 


eooo2 


13160 




AM 


14942 


45 


1496 2 


09935 


13170 




BNR 


14954 


49 


14886 




13180 




B7 


14962 


14 


0993& 


000?0 


13190 


K17 


CM 


14974 


46 


15342 


01300 


13200 




BNL 


14986 


14 


09935 


00043 


13210 




CM 


14998 


47 


14874 


01200 


13220 




BNE 


15010 


32 


01534 


nnnnn 


1 3230 




S F 


15022 


1 1 


09935 


60002 


13240 




AM 


15034 


49 


15294 




13250 




B7 


15042 


1 1 


099 35 


60002 


1 3260 


CREEP 


AM 


15054 


49 


14874 




1 3270 




B7 


15062 


14 


09935 


00043 


13280 


PNUMT 


CM 


15074 


47 


15118 


01200 


13290 




BNE 


15086 


32 


01534 


00000 


13300 




SF 


15098 


11 


09935 


60002 


13310 




AM 


151 10 


49 


15190 




13320 




B7 


15118 


27 


09936 


09935 


13330 


PNUM2 


BT 


15130 


44 


15354 


09960 


13350 




BNF 


15142 


44 


15354 


09972 


13360 




BNF 


15154 


14 


0997 1 


00064 


13370 




CM 


15166 


46 


15354 


1 100 


13380 




BH 


15178 


17 


16582 


i519G 


13390 




BTM 


15190 


45 


15270 


09935 


13400 


AFCl 


BNR 


15202 


14 


15261 


00062 


13410 




CM 


15214 


47 


15354 


01300 


13420 




BL 


15226 


16 


13840 


i5366 


13430 




TFM 


15238 


16 


09935 


60421 


13440 




TFM 


15250 


33 


1 2442 


00000 


13450 




CF 


15260 








13460 




DORG 


15261 




00002 




13470 


NSN 


DC 


15262 


49 


12922 




13480 




B 7 


15270 


14 


1526 1 


00062 


13490 


OOT 


CM 


15282 


46 


15354 


01300 


13500 




BNL 


15294 


14 


099 3^ 


00023 


13510 


AFC 


CM 


15306 


47 


15354 


01200 


13520 




BNE 


15318 


11 


15261 


00061 


13530 




AM 


15330 


1 1 


09935 


60002 


13540 




AM 


15342 


45 


15062 


09935 


13550 


PNUM 


BNR 


15354 


17 


02166 


00036 


13560 


E36 


BTM 


15366 


32 


15378 


00000 


13570 


END2 


SF 


15378 


44 


02546 


01966 


13580 


SWTR 


BNF 


L5390 


17 


02166 


00068 


13590 




BTM 


15402 


49 


02546 




13600 




B7 


L5410 


16 


09935 


60425 


13610 


GOTO 


TFM 


15422 


45 


1 5466 


09935 


13620 




BNR 


L5434 


17 


02166 


00066 


1 3630 


SW70 


BTM 


1 5446 


33 


15434 


00000 


1 3640 




C F 


15458 


49 


15366 




13650 




B7 


L5466 


14 


09935 


00024 


13660 


AB3 


CM 


15478 


47 


15514 


01200 


13670 




BNE 


L5490 


32 


1 5434 


00000 


13680 




SF 


L5502 


1 1 


09935 


60002 


13690 




AM 


L5514 


27 


09936 


09935 


13700 


GOTOX 


BT 


15526 


44 


15434 


09960 


13720 




BNF 


L5538 


44 


15434 


09972 


1 3730 




BNF 


15550 


14 


0997 1 


00064 


13740 




CM 


15562 


46 


1 5434 


01 100 


13750 




6H 


L5574 


17 


16582 


ib5586 


13760 




BTM 


L 5586 


44 


15838 


1 5434 


13770 




BNF 


15598 


45 


15618 


09935 


13780 




BNR 


15610 


49 


1 5434 




13790 




B7 


15618 


14 


09935 


00023 


13800 


AB4 


CM 


15630 


46 


15502 


01200 


13810 




BE 


1 5642 


14 


0993-5 


00064 


1 3820 




CM 


1 5654 


47 


15434 


01200 


13830 




BNE 


15666 


33 


15434 


00000 


13840 




CF 


15678 


1 1 


09935 


60002 


13850 




AM 


1 5690 


45 


15710 


09935 


13860 




BNR 


15702 


49 


15434 




13870 




B7 


15710 


14 


09935 


00023 


13880 


AB5 


CM 


15722 


47 


15434 


01200 


13890 




BNE 


15734 


11 


09935 


60002 


13900 




AM 


1 5746 


27 


09936 


09935 


13910 




BT 


15758 


44 


15434 


09972 


13930 




BNF 


15770 


44 


15790 


09960 


13940 




BNF 


1 5782 


49 


15434 




13950 




B7 


15790 


26 


07244 


09926 


13960 


GOTOJ' 


TF 


15802 


32 


07602 


00000 


13970 




SF 


15814 


32 


07510 


00000 


13980 




SF 


15826 


17 


07286 


i7826 


13990 




BTM 


15838 


45 


15434 


09935 


14000 


GOTOE 


BNR 


15850 


49 


15446 




14010 




B7 


15858 


14 


00419 


00056 


14020 


DIMENS 


CM 



OPERANDS AND REMARKS 

ERROR, 20, 1011 ,,,STATEMENT IS UNRECOGNIZABLE 

STORE 

LBPROC-1,04,610 
CREEP 

LBPROC-1,2 

K17 ,LBPR0C-1,11 

E20 

LBPROC-1,70,610 
PNUM 

LBPROC-1,43,610 

IF + 24 

SWC 

LBPROC-1 ,2 
AFC 

LBPROC-1,2 
IF+24 

LBPROC-1,43,610 

PNUM2 

SWC 

LBPROC-1 ,2 
AFCl 

LBPROC , LBPROC-1 
E36,SW20 
E36,SW21 
NCHAR,4, 10 

E36 

N0NAME,*+12 
OOT, LBPROC-1, 11 
NSN, 2, 10 
E36 

L24+18,END2 

LBPROC-1 , INPUT+16 

SW61 

»-l 

2,0 

SW64 

NSN, 2, 10 

E36 

LBPROC-1, 23, 610 
E36 

NSN, 1,10 
LBPROC-1,2 
PNUMT, LBPROC-1, 11 
ERROR, 36, 10 
SWTR 

END+12,SW12 

ERROR, 8, 10 ,,,D0 LOOP ENDS WITH A TRANSFER 

END+12 ,,,STATEMENT 

LBPROC-1 , INPUT+20 

AB3 , LBPROC-1, 11 

ERROR, 06, 10 

SW70 

EN02 

LBPROC-1 ,24,610 

GOTOX 

SW70 

LBPROC-1 ,2 

LBPROC , LBPROC-1 ,,,CHECK GO TO STATEMENTS 

SW70,SW20 

SW70,SW21 

NCHAR,4, 10 

SW70 

N0NAME,*+12 

GOTOE, SW70 

AB4 , LBPROC-1, 11 

SW70 

LBPROC-1, 23, 610 

GOTOX-12 

LBPROC-1 ,4,610 

SW70 

SW70 

LBPROC-1 ,2 

AB5 , LBPROC-1, 11 

SW70 

LBPROC-1 ,23,610 
SW70 

LBPROC-1 ,2 
LBPROC, LBPROC-1 
SW70,SW21 
G0T0J,SW20 
SW70 

ARG,LABEL-2 

SW30 

SW32 

TLU,TBLA 

SW70, LBPROC-1, 11 
SW70+12 

INPUT+14,56, 10 ,,,CHECK DIMENSION STATEMENTS 
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LQCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


15870 


46 


02780 


01200 


14030 




BE 


ElO 


15882 


16 


09935 


60435 


14040 




TFM 


LBPR0C-l,INPUT+30 


15894 


16 


15917 


oooeo 


14050 




TFM 


NDS,0,10 


15906 


32 


15906 


00000 


14060 


SW71 


SF 


SW71 


15916 








14070 




DORG 


*-l 


15917 




00002 




14080 


NOS 


DC 


2,0 


15918 


49 


15962 




14090 




B7 


SW73 


15926 


16 


09935 


60429 


14100 


COMMON 


TFM 


LBPROC-1, INPUT+24 ,,, CHECK COMMON STATEMENTS 


15938 


44 


16094 


01186 


14110 




BNF 


E22,SW500 


15950 


32 


15950 


00000 


14120 


SW501 


SF 


SW501 


15962 


32 


15962 


00000 


14130 


SW73 


SF 


SW73 


15974 


45 


16006 


09935 


14140 




BNR 


AB6 , LBPROC-1, 11 


15986 


17 


02132 


00037 


14150 


E37 


BTM 


ERR0R9,37,10 


15998 


49 


16302 




14160 




87 


ENDl 


16006 


14 


09935 


00024 


14170 


AB6 


CM 


LBPROC-1, 24, 610 


16018 


47 


16050 


01200 


14180 




BNE 


GTLB 


16030 


49 


15986 




14190 




B7 


E37 


16038 


11 


09935 


60002 


14200 




AM 


LBPROC-1, 2 


16050 


27 


09936 


09935 


14210 


GTLB 


BT 


LBPROC, LBPROC-1 


16062 


44 


16546 


10056 


14230 




BNF 


N048,SW48 


16074 


17 


02132 


00040 


14240 




BTM 


ERR0R9,40, 10 


16086 


49 


16186 




14250 




B7 


SW74 


16094 


17 


02132 


00022 


14260 


E22 


BTM 


ERR0R9,22,10 ,,,COMMON STATEMENT NOT FIRST STATEMENT 


16106 


49 


15962 




14270 




B7 


SW73 ,,,IN PROGRAM 


16114 


26 


07244 


09926 


14280 


SW37 


TF 


ARG,LABEL-2 


16126 


32 


07602 


00000 


14290 




SF 


SW30 


16138 


71 


16138 


12258 


14300 


SW38 


MF 


SW38,DIMFLG 


16150 


17 


07286 


i7826 


14310 




BTM 


TLU,TBLA 


16162 


44 


16558 


07346 


14320 




BNF 


E38,SW35 


16174 


44 


16370 


10678 


14330 




BNF 


C0M3,SW99 


16186 


32 


16186 


00000 


14340 


SW74 


SF 


SW74 


,16198 


11 


09935 


60002 


14350 




AM 


LBPROC-1, 2 


f 6210 


49 


15974 




14360 




B7 


SW73+12 


16218 


44 


16114 


16186 


14370 


N024 


BNF 


SW37,SW74 


16230 


44 


16290 


09960 


14380 




BNF 


E42,SW20 


16242 


44 


16290 


09972 


14390 




BNF 


E42,SW21 


16254 


11 


15917 


00061 


14400 




AM 


NDS,1 ,10 


16266 


14 


15917 


00062 


14410 




CM 


NDS,2,10 


16278 


47 


16390 


01100 


14420 




BNH 


FINUP 


16290 


17 


02166 


000i4 


14430 


E42 


BTM 


ERROR , 14, 10 


16302 


33 


15906 


00000 


14440 


ENDl 


CF 


SW71 


16314 


33 


16186 


00000 


14450 




CF 


SW74 


16326 


33 


15962 


00000 


14460 




CF 


SW73 


16338 


44 


03492 


15950 


14470 




BNF 


CF500,SW501 


16350 


33 


15950 


00000 


14480 




CF 


SW501 


16362 


49 


03504 




14490 




B7 


CF500+12 


16370 


44 


16390 


15906 


14500 


COM3 


BF 


E37,SW71 


16382 


49 


15986 












16390 


45 


16410 


09935 


14510 


F INUP 


BNR 


AB7 , LBPROC-1, 11 


16402 


49 


16302 




14520 




B7 


ENDl 


16410 


14 


09935 


00064 


14530 


AB7 


CM 


LBPROC-1, 04, 610 


16422 


47 


16482 


01200 


14540 




BNE 


CMTST 


16434 


44 


15986 


16186 


14550 




BNF 


E37,SW74 


16446 


16 


15917 


00060 


14560 




TFM 


NDS,0,10 


16458 


33 


16186 


00000 


14570 




CF 


SW74 


16470 


11 


09935 


60002 


14580 




AM 


LBPROC-1 ,2 


16482 


45 


16502 


'09935 


14590 


CMTST 


BNR 


AB8 , LBPROC-1, 11 


16494 


49 


16302 




14600 




67 


ENDl 


16502 


14 


09935 


00023 


14610 


AB8 


CM 


LBPROC-1, 23, 610 


16514 


47 


15986 


01200 


14620 




BNE 


E37 


16526 


11 


09935 


60002 


14630 




AM 


LBPROC-1, 2 


16538 


49 


15974 




14640 




B7 


SW73+12 


16546 


44 


16218 


10020 


14650 


N048 


BNF 


N024,SW24 


16558 


17 


02132 


00038 


14660 


E38 


BTM 


ERR0R9,38 ,10 


16570 


49 


16302 




14670 




B7 


ENDl 


16581 




00005 




14680 




DC 


5,0 


16582 


26 


07244 


09926 


14690 


NGNAME 


TF 


ARG,LABEL-2 


16594 


32 


07602 


00000 


14700 




SF 


SW30 


16606 


32 


075 10 


00000 


14710 




SF 


SW32 


16618 


17 


07262 


39995 


14730 


CZ8 


BTM 


TLUl,TBLAl+9 


16630 


24 


07244 


00805 


14740 




C 


ARG,STN0+8 


16642 


47 


1658-i 


01200 


14750 




BNE 


NONAME-1 , ,6 


16654 


17 


02132 


000+6 


14760 




BTM 


ERR0R9,16,10 ,,,TRANSFER STATEMENT TRANSFERS 


16666 


49 


16584r 


00000 


14770 




B 


NONAME-1, ,6 ,,,T0 ITSELF. 


16674 








14780 




DORG 


*-3 


16674 




00002 




14790 


NSRS 


DSC 


2,0 


166 76 




00001 




14800 


TBLF 


DC 


1 , ' , ,, HOLDS SUB NAMES 


17055 




00379 




14810 




DS 


10*3 7+9 


17056 




00001 




14820 


TBLB 


DC 


1,' ,,,HOLDS OPEN DO LABELS 


17215 




00159 




14830 




DS 


10*15+9 


17216 




00001 




14840 


TBLD 


DC 


1,' ,,,HOLDS OPEN DO INDEXES 


17825 




00609 




14850 




DS 


10*60+9 


17826 




00001 




14860 


TBLA 


DC 


1,' ,,,HOLDS VARIABLE NAMES 


39986 








14870 




DORG 


TBLA+22160 


39986 




00001 




14880 


T8LA1 


DC 


1,' ,,,HOLDS STATEMENT, SEGMENT AND 


16676 








14890 




DORG 


TBLF ,,, PROCEDURE LABELS 


166 76 


27 


00882 


00881 


14900 




BT 


RBCHK,RBCHK-1 


16688 


47 


16932 


00200 


14910 


START 


BNC2 


NOPRTR 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARK 


16700 


25 


01259 


00402 


14920 


CZ 


TO 


DCF,402 


16712 


25 


16917 


00401 


14940 




TD 


DCSUBS ,401 


16724 


25 


08575 


00401 


14950 




TO 


DCPT2 ,401 


16736 


25 


01061 


00400 


14960 




TD 


CZl+7,400 


16748 


25 


01109 


00400 


14970 




TD 


CZ2+7,400 


16760 


25 


01152 


00400 


14980 




TD 


CZ3+2,400 


16772 


25 


01849 


00400 


14990 




TD 


CZ4+7,400 


16784 


25 


02811 


00400 


15000 




TD 


CZ5+7,400 


16796 


25 


16625 


00400 


15010 




TD 


CZ8+7,400 


16808 


25 


09005 


00400 


15020 




TD 


CZlO+7,400 


16820 


25 


09185 


00400 


15030 




TD 


CZll+7,400 


16832 


25 


09343 


00400 


15040 




TD 


CZ12+7,400 


16844 


25 


09775 


00400 


15050 




TD 


CZ13+7,400 


16856 


32 


01186 


00000 


15060 




SF 


SW500 


16868 


32 


02652 


00000 


15070 




SF 


SW13 


16880 


31 


00038 


16911 


15080 




TR 


38 ,DCSUBS-6 


16892 


15 


00022 


00009 


15090 




TDM 


22 ,9 


16904 


49 


00000 


01018 


15100 




B 


,CSYMT9-1 


16917 




00002 




15110 


DCSUBS 


DC 


2,0 


16925 




00008 




15120 




DC 


8 ,79582005 


16930 




00005 


■16674 


15130 




DSA 


NSRS 


16931 




00001 




15140 




DC 


1, ' 


16932 


16 


02355 


00041 


15150 


NOPRTR 


TFM 


CRDl+1,41, 10 


16944 


16 


02367 


00041 


15160 




TFM 


CRDl+13,41,10 


16956 


15 


02459 


00004 


15170 




TDM 


PRAl+9,4 


16968 


16 


00919 


00041 


15180 




TFM 


HWERR+1,41,10 


16980 


49 


16700 




15190 




B7 


CZ 










15200 
















15210 




DIAGNOSTICIAN 2 CALLED IN 










15220 








12394 








15230 




DORG 


ARITH 


12398 




00005 




15240 




DS 


5 


12400 


26 


60413 


07256 


15250 


TBLPRT 


TF 


INPUT+8,CLEAR,2 


12412 


11 


12406 


eoolo 


15260 




AM 


TBLPRT+6, 10 


12424 


14 


12406 


60573 


15270 




CM 


TBLPRT+6, INPUT-H68 


12436 


47 


12400 


01300 


15280 




BL 


TBLPRT 


12448 


16 


12406 


60413 


15290 




TFM 


TBLPRT+6, INPUTi-8 


12460 


31 


00564 


07233 


15300 




TR 


INPUT+159,RECM-1 


12472 


44 


12540 


13334 


15310 




BNF 


GL9, J13 


12484 


33 


12484 


00000 


15320 


Jll 


CF 


Jll 


12496 


26 


00417 


13489 


15330 




TF 


INPUT+12,D0XXX+12 


12508 


32 


01162 


00000 


15340 




SF 


FLAG 


12520 


49 


12940 




15350 




B7 


TBPRTO 


12528 


32 


12484 


00000 


15360 


GL 


SF 


Jll 


12540 


11 


12399 


60009 


15370 


GL9 


AM 


TBLPRT-1,9 


12552 


26 


09926 


12399 


15380 


GLIO 


TF 


LABEL-2,TBLPRT-1, 11 


12564 


44 


12744 


09926 


15390 




BNF 


J8 ,LABEL-2 


12576 


44 


12848 


13008 


15400 




BNF 


GSN, SWPF 


12588 


44 


12788 


12764 


15410 




BNF 


J9, SWUDT 


12600 


26 


00425 


13475 


15420 




TF 


INPUT+20,UNDEF+20 


12612 


32 


01162 


00000 


15430 




SF 


FLAG 


12624 


49 


12940 




15440 




B7 


TBPRTO 


12632 


26 


€0563 


07256 


15450 


UNDBl 


TF 


INPUT+158,CLEAR,2 


12644 


12 


12638 


60010 


15460 




SM 


UNDBl+6,10 


12656 


14 


12638 


60403 


15470 




CM 


UNDBl+6, INPUT-2 


12668 


47 


126 32 


01200 


15480 




BNE 


UNDBl 


12680 


16 


126 38 


60563 


15490 




TFM 


UNDBl+6, INPUT+158 


12692 


44 


12764 


13334 


15500 




BNF 


SWUDT, J13 


12 704 


44 


12528 


12484 


15510 




BNF 


GL,J11 


12716 


49 


12848 




15520 




B7 


GSN 


12724 


44 


12540 


07274 


15530 


TAl 


BNF 


GL9,A1 


12736 


49 


12552 




15540 




B7 


GLIO 


12 744 


44 


12788 


13008 


15550 


J8 


BNF 


J9,SWPF 


12756 


49 


12848 




15560 




B7 


GSN 


12764 


44 


12848 


12764 


15570 


SWUDT 


BNF 


GSN, SWUDT 


12776 


33 


12764 


00000 


15580 




CF 


SWUDT 


12788 


33 


099 26 


00000 


15590 


J9 


CF 


LABEL-2 


12800 


26 


130 3-1: 


09926 


15600 




TF 


STADD+ll,LABEL-2,6 


12812 


11 


13031 


60020 


15610 




AM 


STADD+11,20 


12824 


14 


13031 


60573 


15620 




CM 


STADD+11,573 


12836 


46 


12940 


01200 


15630 




BE 


TBPRTO 


12848 


44 


12880 


07274 


15640 


GSN 


BNF 


GSNR,A1 


12860 


12 


12399 


60010 


15650 




SM 


TBLPRT-1,10 


12872 


49 


12892 




15660 




B7 


GSNR+12 


12880 


11 


12399 


60001 


15670 


GSNR 


AM 


TBLPRT-1,1 


12892 


45 


12724 


12399 


15680 




BNR 


TA1,TBLPRT-1,11 


12904 


14 


13031 


60413 


15690 




CM 


STADD+11, INPUT+8 


12916 


46 


13008 


01200 


15700 




BE 


SWPF 


12928 


16 


12994 


*2996 


15710 




TFM 


J90+6, SWPFl 


12940 


16 


13031 


60413 


15720 


TBPRTO 


TFM 


STAOD+11, INPUT+8 


12952 


47 


12976 


03400 


15730 


J91 


BNI 


JIO, 03400 


12964 


34 


00000 


00971 


15740 


J912 


SKIP 


,1 


12976 


39 


00405 


00900 


15750 


JIO 


PRA 


INPUT 


12988 


49 


126 32 




15760 


J90 


B7 


UNDBl 


12996 


16 


12994 


+2632 


15770 


SWPFl 


TFM 


J90+6, UNDBl 


13008 


33 


13008 


00000 


15780 


SWPF 


CF 


SWPF 


13020 


33 


07274 


60413 


15790 


STADD 


CF 


Al , INPUT+8, 7 


13032 


42 






15800 




BB2 





,,, INITIALIZE TO CORE SIZE AND DISK 



,,, INITIALIZE FOR PUNCH OUTPUT 



,,,BEGIN PART 2 

,,,ROUTINE TO PRINT TABLES 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MMI=M 

rl IV C 1 1 


13034 


25 


13439 


0040 1 


15820 


FINISH 


T D 


13046 


25 


13173 


00400 


1 5830 




TO 


13058 


25 


13229 


00400 


1 5840 




TO 


13070 


47 


1 3494 


00200 


15850 




BNC2 


13082 


14 


00417 


00045 


15860 


F INS I 


CM 


13094 


47 


13538 


01200 


15870 




BNE 


13106 


i4 


■90419 


00055 


15872 




CM 


13118 


47 


1 3538 


01200 


15874 




BNE 


13130 


45 


13538 


00423 


15876 




BNR 


13142 


44 


1 3166 


01966 


15880 




BNF 


13154 


17 


02132 


00068 


15890 




BTM 


13166 


45 


13186 


39995 


15900 


CZ6 


BNR 


13178 


49 


1 3234 




15910 




87 


13186 


32 


12764 


00000 


15920 


J12 


SF 


13198 


32 


13008 


00000 


15930 




SF 


13210 


32 


07274 


00000 


15940 




S F 


1 3222 


If 


12400 


39986 


15950 


CZ7 


BTM 


1 32 34 


45 


1 3254 


17826 


1 5960 


FIB 


BNR 


1 3246 


49 


13314 




15970 




R 7 
D 1 


1 32 54 


32 


1 3008 


nnnnn 


15980 


PTBLA 


<;f 

O 1 


1 "^l 9 A A 




1 9 7 A A 


uuuuu 


X O^^VJ 




c c 

o r 


1 3278 


26 


1 3469 


1 3493 


1 Annn 
1 ouuu 




TP 


13290 


33 


13466 


00000 


160 10 




C F 


1 3302 


7 


12400 


•17826 


160 20 




BTM 


133 14 


45 


1 3334 


17056 


16030 


F INA 


BNR 


13326 


49 


13358 




16040 




B7 


13334 


32 


1 3334 


00000 


16050 


J13 


SF 


1 3346 


17 


1 2400 


i7056 


16060 




BTM 


13358 


31 


00038 


13433 


160 70 


TIGER 


TR 


13370 


16 


00068 


60299 


16080 




TFM 


13382 


26 


00570 


01381 


16100 




TF 


13394 


44 


13414 


01162 


161 10 




BNF 


13406 


49 


00000 




16120 




B7 


13414 


32 


00039 


00000 


161 30 


C4D1 


SF 


13426 


49 


00000 


00760 


16140 




B 


13439 




00002 




16150 


DCCOMP 


DC 


13453 




000 14 




16155 




DC 


1 3455 




000 1 1 


X2 


16160 


UNDEF 


DAC 


13477 




00007 


X2 


161 70 


DOXXX 


DAC 


1 349 1 




0000 2 


X2 


161 80 


SMBLS 


DAC 


1 3494 


16 


1295 3 


00041 


16190 


NPRT2 


TFM 


13506 


15 


1 2985 


00004 


16200 




TDM 


13518 


16 


1 2965 


00041 


16210 




TFM 


1 3530 


49 


1308 2 




1 6220 




B7 


13538 


16 


09935 


6042 5 


1 62 30 


DA T A 


TFM 


13 550 


32 


1 3550 


nnnnn 


1 6240 


DT FLG 


SF 


1 3562 




09935 


60002 


16250 




AM 


135 74 


45 


1 36 18 


0993§ 


1 6260 




BNR 


13586 


44 


13654 


13550 


1 62 70 


M00N2 


BNF 


13598 


16 


01596 


i308 2 


1 6280 


ENDATA 


T FM 


136 10 


49 


01234 




1 6290 




B7 


13618 


44 


13926 


1 3550 


1 6300 




BNF 


13630 


27 


099 36 


09935 


16310 




BT 


1 3642 


44 


13674 


09960 


1 6320 




BNF 


13654 


17 


02132 


00035 


1 6330 


E41 


BTM 


13666 


49 


1 35 98 




16340 




B7 


13674 


71 


13674 


09972 


1 6350 


FXLC 


MF 


13686 


44 


1 38 18 


10678 


16360 




BNF 


13698 


44 


13718 


10056 


163 70 




BF 


13710 


49 


14226 










13718 


44 


14318 


11286 


16380 




BNF 


13730 


11 


09935 


60002 


16390 




AM 


13742 


33 


13550 


00000 


16400 


CDATF 


CF 


13754 


49 


14090 




16410 




B7 


13762 


14 


0993-5 


00021 


16420 


SLSHl 


CM 


13774 


47 


1 3654 


01200 


1 6430 




BNE 


13786 




099 35 


60002 


1 6440 




AM 


13798 


45 


1 36 18 


09935 


16450 




BNR 


13810 


49 


13586 




164 60 




B7 


13818 


26 


07244 


09926 


1 6470 


REGLAB 


jp 


13830 


17 


07286 


i7826 


16480 




BTM 


13842 


44 


13862 


16114 


1 6490 




BF 


13854 


49 


14246 










13862 


44 


13882 


07346 


16500 




BNF 


13874 


49 


1 3742 




16510 




B7 


13882 


12 


07285 


60001 


16520 


CUDFF 


SM 


13894 


33 


07285 


00000 


16530 




CF 


13906 


11 


07285 


60001 


16540 




AM 


13918 


49 


13742 




16550 




B7 


13926 


26 


13976 


09935 


16555 


THCON 


TF 


13938 


11 


13976 


60002 


16560 




AM 


13950 


45 


13970 


13976 


16565 




BNR 


13962 


49 


13654 




16570 




B7 


13970 


14 


00000 


00048 


16580 


THCO 


CM 


13982 


47 


14110 


01200 


16590 




BNE 


13994 


14 


09935 


000?5 


16600 




CM 


14006 


46 


14266 


01100 


16610 




BH 


14018 


16 


14089 


00060 


16620 




TFM 
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OPERANDS AND REMARKS 

DCCOMP ,401 ,,, INITIALIZE FOR CORE SIZE AND DRIVE 

CZ6+7,400 

CZ7+7,400 

NPRT2 

INPUT+12,45,10 
DATA 

INPUT+14 ,55 ,20 
DATA 

DATA ,INPUT+18 

CZ6 ,SW12 

ERR0R9,8, 10 

J12,TBLAl+9 

FIB 

SWUDT 

SWPF 

Al 

TBLPRT,TBLA1 ,,,PRINT UNDEFINED LABELS 

PTBLA, TBLA 

FINA 

SWPF 

SWUDT 

UNDEF+14,SMBLS+2 ,,,PRINT UNDEFINED SYMBOLS 

UNDEF+11 

TBLPRT ,TBLA 

J13 ,TBLB 

TIGER 

J13 

TBLPRT, TBLB ,,,PRINT OPEN DOS 

38 ,DCC0MP-6 
68 ,299 
570,STNXT 

C4D1 ,FLAG 


39 ,,,INDICATE NO ERRORS HAVE BEEN FOUND 
,760 

2,0 

14 ,7940016000572' 
11, UNDEF LABLS 
7, OPEN DO 
2,SM 

J91+l,41,10 , , ,INITIALIZE FOR PUNCH OUTPUT 

JlO+9,4 
J912+l,41, 10 
FINS I 

LBPROC-1 , INPUT+20 ,,, CHECK DATA STATEMENT 
DTFLG 

LBPROC-1, 2 

MOONl , LBPROC-1 ,11 

E41 , DTFLG 

BRANCH+18,FINSI 

STORE 

THCON, DTFLG 
LBPROC , LBPROC-1 
FXLC ,SW20 
ERR0R9 ,35 ,10 
ENDATA 
FXLC ,SW21 
REGLAB, SW99 
E40D,SW48 

E24,SW27 
LBPROC-1, 2 
DTFLG 
BNR 

LBPROC-1, 21, 610 
E41 

LBPROC-1, 2 

MOONl , LBPROC-1 , 11 

M00N2 

ARG,LABEL-2 

TLU,TBLA 

E31D,SW37 

CUDFF ,SW35 

CDATF 

TLU-1,1 

TLU-1 ,,6 

TLU-1,1 

CDATF 

THCO+6, LBPROC-1 
THCO+6,2 
THCO, THCO+6, 11 
E41 

,48,10 
NUMBl 

LBPROC-1, 75, 610 
E34 

HOLCON,0, 10 



C4D DIAGNOSTICIAN 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


14030 


25 


14089 


09935 


16630 




TD 


HOLCON, LBPROC-1, 11 


14042 


11 


14089 


00062 


16640 




AM 


HOLCON, 2, 10 


14054 


13 


14089 


00602 


16650 




MM 


HOLCON, 2, 9 


14066 


21 


09935 


00099 


16660 




A 


LBPROC-1, 99 


14078 


32 


13550 


00000 


16670 


STDT 


SF 


OTFLG 


14088 








16680 




□ORG 


»-l 


14089 




00002 




16690 


HOLCON 


DC , 


2,0 


14090 


45 


13762 


09935 


16700 


BNR 


BNR 


SLSHl, LBPROC-1, 11 


14102 


49 


13654 




16710 




B7 


E41 


14110 


14 


09935 


00010 


16720 


NUMBl 


CM 


LBPROC-1 , 10,610 


14122 


46 


13654 


01200 


16730 




BE 


E41 


14134 


14 


0993* 


00020 


16740 




CM 


LBPROC-1 ,20,610 


14146 


47 


14170 


01200 


16750 




BNE 


PROCL 


14158 


11 


09935 


60002 


16760 




AM 


LBPROC-1, 2 


14170 


27 


09936 


09935 


16770 


PROCL 


BT 


LBPROC , LBPROC-1 


14182 


44 


13654 


09960 


16780 




BNF 


E41 ,SW20 


14194 


44 


14286 


09972 


16790 




BNF 


TFXL,SW21 


14206 


44 


14298 


13674 


16800 




BNF 


E33D,FXLC 


14218 


49 


14078 




16810 




B7 


STDT 


14226 


17 


02132 


00040 


16820 


E40D 


BTM 


ERROR9,40, 10 


14238 


49 


13598 




16830 




B7 


ENDATA 


14246 


17 


02132 


00031 


16840 


E31D 


BTM 


ERR0R9,31, 10 


14258 


49 


13598 




16850 




B7 


ENDATA 


14266 


17 


02132 


00034 


16860 


E34 


BTM 


ERR0R9,34,10 


14278 


49 


135 98 




16870 




B7 


ENDATA 


14286 


44 


14078 


13674 


16880 


TFXL 


BNF 


STDT ,FXLC 


14298 


17 


02132 


00033 


16890 


E33D 


BTM 


ERR0R9,33,10 


14310 


49 


13598 




16900 




B7 


ENDATA 


14318 


17 


02132 


00024 


16910 


E24 


BTM 


ERR0R9,24, 10 


14330 


49 


13730 




16920 




B7 


CDATF-12 


16688 








16930 




DEND 


START 



LABELS IN C4D COMPILER I 



ASCAN COMPILES THE INSTRUCTIONS FOR ALL ARITHMETIC EXPRESSIONS. EACH OF 

THE CLASS A ARITHMETIC SUBROUTINES SPECIFIES THE ARITHMETIC OPERATION TO 
BE PERFORMED ON A VARIABLE FOUND IN FAC (THE FLOATING ACCUMULATOR) BY A 
SECOND VARIABLE. FOR THIS REASON, AT THE BEGINNING OF EVERY ARITHMETIC 
STATEMENT WILL BE A TRANSMIT FIELD TO FAC FROM THE INITIAL VARIABLE 
ADDRESS. ARITHMETIC IS PERFORMED BY A BRANCH AND TRANSMIT TO THE AP- 
PROPRIATE CLASS A SUBROUTINE THE VALUE OF THE SECOND OR SUBSEQUENT 
VARIABLE. 

BEGl CAUSES A NEW STATEMENT TO BE READ FROM THE DISK WORKING STORAGE FOR 

COMPILATION. THE NEW STATEMENT IS OUTPUT WITH ITS OBJECT-TIME REFER- 
ENCED ADDRESS EITHER ONTO A CARD OR ONTO THE PRINTER. IF A NUMBERED 
STATEMENT, THE NUMBER IS STRIPPED AND THEN CONTROL IS SENT TO THE TYPE 
OF STATEMENT AS PREVIOUSLY DETERMINED IN THE SCAN SECTION OF THE SYSTEM. 

BEGIN INITIALIZES AND RESETS INDICATORS IN PREPARATION FOR THE PROCESSIi^'G 

OF A STATEMENT AND CHECKS TO SEE IF THE SYMBOL TABLE AT OBJECT TIME WILL 
OVERLAP THE MAINLINE PROGRAM AT OBJECT TIME. 

BEGPRU CONVERTS THE BEGIN PROCEDURE STATEMENT TO IN-LINE INSTRUCTIONS. 

FIRST, A BRANCH AROUND THE PROCEDURE, AND SECONDLY, THE BRANCH WHICH 
CUIVSTITUTES THE EXIT FROM THE PROCEDURE. A TRANSMIT FIELD INSTRUCTION 
WHICH IS THE FIRST EXECUTED INSTRUCTION IN THE PROCEDURE AND FILLS THE 
tXIT dRaIvCH ADDRESS, IMMEDIATELY FOLLOWS THE bkAwCH INSTRUCT lUh'S . 

i5EGSEG IS REFEREMCED bY THE liEGlW SEGimENT STATEMENT AFTfcK THE Shi^.-iEivT 

NUribcR IS OblAlrMzD BY ..GETrtU.. . THE COKE INSTRUCTIN.v ANMi-JESS ..L.. IS 
RESET TU THE STAkTING PUINT OF THE SEGMENT. THE ShCTUR IhiCREnEi'T IS 
PLACED IiViTO THE SYi-'BUL TABLE FRO.-i ..DCF + 5.. . EXIT IS Tn ..BEC^I.--.. . 

BEGTk IS ENTcREU liY THE bEGIr! TkACE STATEf-ENT. IT SETS THE TRaCE SWITCH 

..TRX.. AND IE A TRACE HOKiiAT IS PART UF THE BEGIh' TRACE STATE.-iEi-T , THE 
IM-Llr-JE IrlSTRbCTlUiM, TFm TkFL + U, ESTABLISHES TME EMici-^AT EHK 

THE TRACE OUTPUT. 

BEKEC BEGIivS THE THREE I i-i-L I i-JE INSTRUCT lUI\iS WHICH ARE Clii PILED F(.-K THE 

BEGIivi PROCEDURE STATEmEkiT-BRAMCH , bRAi-'CH, AMD TRAivSi-:IT FIELD. ThiE 
Iiv'ITIaL bkAhJCH IS a bKAlCH ARuUi^iU THE PROCEDURE STATEr-.Er-'TS . THE StCu'W) 
dKai-iCH IS THE BRAiMCH TO THE STATEriENT FlILLuWING THE EXECUTE PkMCEDUkh. 
THE TRAMSi-ilT FIELD ,',UVES THE KETUKIv ADDRESS FRDi'-i THE SYr^BUL TAhLE Ti.i J'-\z 
PkECEDIhG BRAWCH HmSTRUCTIuiv. 

bUFBAS IS THE lOO-DIGIT bUFEEk USED FUR THE ACCUiiULAT IMh: ME II- -LIr'- 

Instruct lOivs . 

CALLSG IS REFERENCED FROi-i THE CaLL SEGi-iENT STATEMENT AFTER MHTAIr lMG THF 

SEGiiEMT i\!Ui-ibEk, THE INSTRUCTION BRANCH AND TRANSMIT Ir-liFDIATE TU 

..CALSR.. WITH A ADDRESS OF THE SYMBOL TABLE LUCATIUK Of THE NUnHEKEi' 
SEGMENT Ei-iDING I i\i 6 IS GENERATED. 

CCAL IS THE SUBkUUTINE THAT CALLS THE EXECUTIVE INTU CUKE AND 

TRANSMITS CONTROL BACK TO THE EXECUTIVE. IT IS MOVED TO CORE LOCATION 



ZERO AND EXECUTED FROM THAT LOCATION. IT IS THE EQUIVALENT OF A COLD 
START. 

CEND IS ENTERED FOR THE COMPILATION OF THE END STATEMENT. AFTER SETTING 

THE END SWITCH, COMPILE 2 IS READ INTO CORE IF NOT PREVIOUSLY READ BY 
THE COMPILATION OF A DATA STATEMENT. THE NUMBER OF SECTORS FROM THE 
BEGINNING OF THE PROGRAM ON DISK TO THE BEGINNING OF THE SYMBOL TABLE ON 
THE DISK, THE NEXT UNUSED CORE ADDRESS, THE OBJECT TIME ADDRESS OF THE 
NEXT AVAILABLE SYMBOL TABLE ENTRY AND THE ADDRESS OF THE FIRST SYMBOL IN 
THE SYMBOL TABLE ARE COLLECTED AND OUTPUT TO THE DISK ALONG WITH THE 80 
DIGIT USED FUNCTION TABLE INTO THE FIRST SECTOR OF THE OBJECT PROGRAM 
LOCATION. THIS CONTROL SECTOR IS USED AT OBJECT LOAD TIME TO DEFINE THE 
EXTENT OF THE SYMBOL TABLE, THE CORE ADDRESS FOR RELOCATING THE CALLED 
SUBROUTINES AND DEFINING THE SUBROUTINES CALLED. 

CEXP IS USED WHEN *» IS ENCOUNTERED DENOTING EXPONENTIATION. DIGITS ARE 

PLACED IN THE USED FUNCTION TABLE AT ..USEDFS-4.. AND AT ..USEDFS-6.. TO 
CALL THE ALOG AND EXP RELOCATABLE SUBROUTINES WHICH ARE USED 
WHEN THE IS SPECIFIED. 

CFCT COMPILES INSTRUCTIONS WHEN RELOCATABLE SUBROUTINE NAMES HAVE BEEN 

ENCOUNTERED IN THE ARITHMETIC STATEMENT. 

CFXN— IS THE SUBROUTINE WHICH DECIPHERS A NUMERIC LABEL FROM THE INPUT 
BUFFER ..CHI.. WHICH IS IN ALPHA MODE AND PLACES THE NUMBER IN NUMERIC 
MODE IN ..SYM.. . EXITS FROM ..CFXN.. ARE EITHER TO ..SMTLU.. SYMBOL 
TABLE LOOK-UP OR A RETURN TO THE CALLING ^ITORDUTINE. 

CODE PLACES THE VARIABLE NAMES INTO THE INSTRUCTIONS ,.. INSTl . . AND 

..INST2.. TO BE ASSOCIATED WITH THE PREVIOUSLY SELECTED SUBROUTINE ENTRY 
ADDRESSES WHICH HAVE BEEN PLACED IN THE P ADDRESS OF THE INSTRUCTIONS. 

CQMM IS ENTERED BY THE COMMON STATEMENT AND PLACES NAMES OF SUBSCRIPTED 

VARIABLES AND NON-SUBSCRIPTED VARIABLES INTO THE SYMBOL TABLE 
IN THE SEQUENCE SPECIFIED BY THE COMMON STATEMENT. SUBSCRIPTED 
VARIABLES WILL HAVE TWO SYM TAB LOCATIONS ASSIGNED - SEE ..DIM... 

COMP IS USED IN SYMBOL TABLE LOOKUP FOR MATCHING A GIVEN SYMBOL !''ITH THE 

ENTRIES IN THE SYMBOL TABLE. 

CONTRL PLACES THE NUMERIC REFERENCE OR ARGUMENT AS THE FIELD UP A 

CONTROL INSTRUCTION. IF SWITCH 2 IS OFF, ANY PRINTER CONTROL OPERATION 
WILL BE BYPASSED. 

CRAM IS THE 10-DIGIT FIELD WHICH INITALIZES THE SYMBOL TABLE. -0000000** 

CSORN SUBROUTINE DECIPHERS LABELS FROM THE INPUT BUFFER ..CHI.. TO 

DETERMINE WHETHER THEY ARE NUMBERS, FLOATING POINT VARIABLE NAMES, 

OR FIXED POINT VARIABLE NAMES. THE RESULTING LABEL OR NUMBER IS PLACED 

IN ..SYM.. . 

DATA IS ENTERED ON ENCOUNTERING A DATA STATEMENT. IT CALLS THE 

COMPILE 2 SECTION OF THE COMPILER FROM DISK AND PROCEEDS TO PLACE CON- 
STANTS ONTO THE DISK TO BE PLACED ONTO THE SYMBOL TABLE AT LOAD TIME. 

OGF IS THE DISK CONTROL FIELD USED TO PLACE A STRING OF 100 DIGITS OF 

COMPILED INSTRUCTIONS OR SYMBOL TABLE ENTRY CONSTANTS INTO THE PROGRAM 



AREA OF THE DISK. 

OIM'^— IS ENTERED BY THE DIMENSION STATEMENT AND PLACES NAMES OF SUBSCRIPtEO 
VARIABLES INTO THE SYMBOL TABLE. EVERY SUBSCRIPTED LABEL WILL 
HAVE TWO SYMBOLS ALLOCATED AT COMPILE TIME. THE FIRST (HIGH CORE) 
POSITION WILL CONTAIN THE NAME OF THE VARIABLE. THE SECOND LOCATION WILL 
CONTAIN THE CORE ADDRESS AT OBJECT RUN TIME OF THE LAST ELEMENT OF THE 
ARRAY AND THE WIDTH OF THE ARRAY IF DOUBLE DIMENSIONED. EXIT IS TO 
..BEGIN.. . 

DO— THE STATEMENT NUMBER INDICATING THE TERMINATION OF THE DO IS FIRST 

OBTAINED THROUGH THE SUBROUTINE ..CFXN.. . A FIELD IN THE SYMBOL TABLE 
LOCATION ASSOCIATED WITH THIS STATEMENT NUMBER IS DECREMENTED PRODUCING 
A COUNT OF THE NUMBER OF DOS TO BE TERMINATED BY THIS STATEMENT. 
THEN THE INDEX OF THE DO IS OBTAINED THROUGH SUBROUTINE ..CSORN.. . 
THE INSTRUCTION FOR INITIALIZING THE DO INDEX IS ESTABLISHED AND AT 
..ELL.. WE BEGIN DETERMINING WHETHER THE INITIAL, TERMINAL AND INCREMENT 
VALUES OF THE INDEX ARE CONSTANTS OR VARIABLES. FINALLY, A FOUR-ADDRESS 
STRING IS DEVELOPED IN ..DSADO.. WHICH CONSISTS OF 1 )THE INDEX, 2)THE 
RETURN CORE LOCATION, 3)THE TERMINAL VALUE OF THE INDEX AND 4) INCREMENT 
OF THE INDEX. THIS 20-DIGIT STRING IS MOVED TO THE TOP OF THE SYMBOL 
TABLE (LOW MUMliERED CORE) AND WILL OVERLAY TWO SYMBOL TABLE LOCATIONS 
Until the terminal do statement is encountered and compiled. EXIT IS 
TU ..BEGIN.. . 

EDCF- — IDEI^iTIFIES THE DISK CUNTRUL FIELD FOR THE COMPILE 2 SECTIOM UF T^:E 
CUi-iPILER. 

EI-IUPKU GEiMERATES A BRAivCH TU THE EXIT FKUI-i THE PROCEDURE AND ESTABLISHES 

THE AUURESS OF THE END OF THE PROCEDURE. 
ENUSEG- — IS ENTERED FROM THE END SEGMEK'T STATEMENT. IT SETS AN EARLY 

TERi'i Ih'ATION TO Tht SEGhENT ..SEG.. SUBROUTINE BEFOkE BRANCHING THEkET!). 
EiMUTK — -END UF TRACE, TURh!S OFF THE TRACE SWITCH. 

E(.)2 ^E02 ,E(-)3, AND Eu4 OETERMIimE WHETHER AN ARITHMETIC OPERATOR OTHER THAN 

THE EQUAL SIGN IS USED IN A STATEi-.ENT. IF NOT, THE ST AT Ef- Ef-'T WILL nE 

CUr-iPILEU AS A SINGLE TRANSMIT FIELD INSTRUCTION. 
EXPRUC — IS ENTERED FROM THE EXECUTE PROCEDURE CONVERTING IT TO A BRAimCH 

AivU TRANSMIT IMMEDIATE WITH THE ADDRESS OF THE NEXT MAINLINE I NSTRUCT I f li-; 

TU THE PROCEDURE LUCATION IN THE SYwbOL TABLE. THERE THE OBJECT T I f- E 

STARTING LOCATIOiM UF THE PROCEDURE IS FOOMD. 
EXREC— '-IS THE INSTRUCTION BRANCH AND TRAI-SNlT FIELD IMi'iEUIATE TO THE 

SYi-iBOL TABLE LOCATION OF THE PROCEDURE, WHICH IS COMPILED IN-LIl^■E FOR 

THE EXECUTE PROCEDURE STATEMENT. THIS INSTRUCTION IS UNIQUELY 

17XXXX2XXXXX 

FCTEi\lU---IDENTIFI ES THE FIRST SYf-ibOL TaBLE ADDRESS (LOWER NUMBERED CORE) 
AFTER THE FUNCTION NAMES. 

FLNUi-ib-— IS USED FUR CONVERTING THE ALPHA FORM OF FLOaTIMG POINT NUMBERS 
TO THE INTERNAL ..EXCESS 50.. NUMERIC FORM. THIS SUBROUTINE EXITS TO 
SYMBOL TABLE LOOK-UP EXCEPT WHEN REFERENCED IN A DATA STATEMENT.. 



FORMAT FIRST, THE OBJECT TIME CORE ADDRESS OF THE FORMAT STRING IS PLACED 

IN THE SYMBOL TABLE. AT ..FSCAN.., WE DECIPHER THE CHARACTERS IN THE 
FORMAT STATEMENT. 

FXNUMB CONVERTS THE ALPHAMERIC FIXED POINT NUMBERS TO NUMERIC MODE FOR 

THE NUMBERS IN ARITHMETIC EXPRESSIONS. NUMBERS WHICH ARE USED AS LABELS 
ARE NOT HANDLED IN THIS SUBROUTINE BUT RATHER IN ..CFXN... 

GETNO IS A SUBROUTINE WHICH OBTAINS THE NUMERIC LABEL FOR PROCEDURES AND 

SEGMENTS. 

GOTO IF THE TEST FOR A COMPUTED GOTO IS NOT SATISFIED WE UTILIZE THE 

SUBROUTINE ..CFXN.. TO OBTAIN SYMBOL TABLE LOCATION OF THE NUMBERED 
STATEMENT WHICH IS REFERENCED. THIS SYMBOL LOCATION IS THEN PLACED IN 
A BRANCH INSTRUCTION AND COMPILED AS 8 DIGITS IN-LINE. EXIT IS TO 
..BEGIN... IF THE GOTO IS A COMPUTED GOTO, THE ..GOTORC. RECORD IS 
PLACED IN ..PHI.. AND WE PROCEED TO, BY MEANS OF ..CFXN.. SUBROUTINE, 
ACCUMULATE A STRING OF SYMBOL TABLE ADDRESSES ASSOCIATED WITH THE STATE- 
MENT NUMBERS REFERENCED IN THE COMPUTED GOTO STATEMENT. AT THE END OF 
THE STRING OF STATEMENT NUMBERS, THE INDEX IS FOUND BY THE SUBROUTINE 
..CSORN.. AND THE ..GOTORC. ADDRESSES ARE MODIFIED FOR CORE LOCATION 
AND THE ADDRESS OF THE INDEX. THE STRING IS OUTPUT BY ..PUTPHI.. . 
EXIT IS TO ..BEGIN.. . 

GOTORC IS THE IN-LINE SEQUENCE OF INSTRUCTIONS COMPILED FOR A COMPUTED 

GOTO. IT PROVIDES THE CHECKING OF THE MAGNITUDE OF THE INDEX AND 
ALSO THAT THE INDEX HAS BEEN DEFINED. " ^ ' 

IDCF IS THE DISK CONTROL FIELD UTILIZED FOR OBTAINING SCANNED SOURCE 

STATEMENTS FROM WORKING STORAGE UN THE DISK. 

IF IS ENTERED BY EACH IF STATEMENT. AFTER SETTING THE IF SWITCH, THE 

..ASCAN.. SUBROUTINE IS ENTERED FOR COi'iPILING THE ARGUMENT OF THE IF. 
On CONCLUDING THE COMPILATION OF THE ARGUMENT, THE SUBROUTINE ..TEN.. IS 
ENTERED FOR COMPILING THE NECESSARY BRANCH INSTRUCTIONS TO THE NUMbERED 
STATEMENTS. IF THE CONTINUATION CHARACTER IS USED, THIS SIMPLY 
ELIMINATES ONE OF THE BRANCH INSTRUCTIONS FOLLOWING THE COfiP I LAT I Oij UF 
THE IF ARGUMENT. EXIT IS TO ..BEGIN.. . 

INITL INITIALIZES THE DISK CONTROL FIELDS AND MEMORY SENSITIVE AREAS IN 

THE COMPILER. 

INST1,INST2 ARE THE COMPILER LOCATIONS IN WHICH OBJECT TIME INSTRUCT IUi\S 

ARE ASSEMBLED. 

101 IS ENTERED FOLLOWING THE SELECTION OF ONE OF THE I/O STATEMENTS READ, 

REREAD, PRINT, PUNCH, TYPE, IN IT, THE FORMAT NUMBER IS OBTAINED BY THE 
SUBROUTINE ..CFXN.. AND ITS SYMTAB ADDRESS IS OUTPUT TO THE INSTRUCTION 
STRING. 

102 SETS THE EXIT FROM THE I/O SUBROUTINE WHEN THE END OF THE I/O LIST 

HAS BEEN ENCOUNTERED. IT PRODUCES THE IN-LINE INSTRUCTION IDENTIFYING 
THE END OF THE LIST WITH A Q FIELD OF 2 DIGITS -0.. EXIT IS TO ..BEGIW. 

103 PROVIDES TESTING FOR THE IMPLIED DO IN THE I/O LIST AND OUTPUTS THE 

VARIABLE ADDRESSES WHEN SUCH AN IMPLIED DO IS NOT PRESENT. 



104 PROVIDES THE STACKING OF THE ADDRESSES OF THE VARIABLES WITHIN THE 

IMPLIED DO UNTIL THE INDEX OF THE IMPLIED DO BECOMES AVAILABLE, AT WHICH 
TIME WE BRANCH TO ..DOl.. FOR THE INITIALIZING OF THE DO. THE EXIT FROM 
DO BRINGS US TO ..lOb.. WHERE THE STACKED VARIABLE ADDRESSES ARE OUTPUT 
AND TERMINATED WITH THE BRANCH TO ..TDOl... EACH VARIABLE IN THE I/O 
LIST PRODUCES AN INSTRUCTION BRANCH AND TRANSMIT IMMEDIATE TO LOOK, THE 
VARIABLE ADDRESS. 

L IS THE OBJECT TIME CORE ADDRESS FOR EACH INSTRUCTION AND IS INCREMENTED 

AS COMPILED INSTRUCTIONS ARE MOVED INTO ..BUFBAS... 
LAST— IS A READ BACK CHECK AT THE TIME THE COMPILER IS INITIALLY READ INTO 

CURE . 

LSTC THIS SUBROUTINE PERMITS THE OUTPUT OF REFERENCED SOURCE STATEMENTS 

TO EITHER CARDS UR THE PRINTER. 

LSTPG CAUSES THE ENTIRE PROGRAM TU BE LISTED ON THE PRINTER IF THE 

DIAGNOSTICIAN HAS FOUND ERRORS IN THE PROGRAM. 

LSTT — THIS SUBROUTINE PERMITS THE OUTPUT OF ERROR I'iESSAGES TO EITHER THE 
PRINTER UR THE TYPEWRITER. 

MEi-iCAP IS SET IN THE INITIALIZATION OF THE COMPILER AND IDENTIFIES THE 

MEMORY CAPACITY OF THE COMPOTER. 

r-iOuN7 — INITIALIZES THE SYMBOL TABLE FROM ..FCTEND.. AT THE HIGH END OF 
COKE DOWN TO THE POSITION ..LAST+12.. THE CHARACTERISTIC FIELD IM THE 
SYMBOL TAP.LE IS -00000004=*. THE LAST POSITKJN IN THE SYi-iB('L TABLE WILL 
bi: RbCU(;M'IZEl) BY BEING KEPLACEU BY liv, 

NUSPCt TH I S SUoRllUTIhit UUTPUTS THt MtSSAGE SYh TAB FULL !"hl-r- ATTfenPTlHi; 

TU PUT Ar-njTHER SYi-bUL I MTU THE SYi-.rtUL TAhLF Ai-D THHkH IS l-'l^'f aDE'-iUaTE 
SPACE IN THE SYiMiUL TAbLE UK kHBisi A 20 DIGIT DO KbCUKU IS TO BE PLAC-0 
AT Thic END OF THE SYmBuL TaHLE — THAT IS, IM LOW CUKE — rSUT IiThitK S Y: ,i',ijLS 
OCCUPY THE iXitXT aVaILAHLE LOCaTIOI-S. THE EXIT FKUr. THIS SI iBKUUT I i-.h is 
..bEGIiv.. ;;hICH PERmITS THE FUkTHER CUmPILATIUN UF AUDITIMi-aL STaTc- 
MtuTS, HijI/cVEk, the KEFEkEmCEU CUkE aDDHcSS UF I I'iSTKUCT iMi-'S Ti-.hRE Ai-Th 
;:ILL iMUT BE CUKRtCT. 

PAUSE CUr-iPILtS Til A BKaivCH aNO TkaivSmIT li-ii-FOjATE T(J ..DTRi-... . Tht 

ADDRESS OF THE PAUSE INSTRUCTIUM wILL BE A 5-DIGIT FIELD OF ZEkObS 
{ -000(J ) . 

Pi-;! IS A BUrFEK AREA llv WHICH FURi-lAT STkINI-;S AND CUi-PliTEH (-^MTfi Ii-STKUCT- 

lUNS ARE CilMPILED PKIUR TU BEING PLACED UN THE l;ISK. ITS LE^nrfh IS 4o0 
OlGITS. 

PUTETo PROVIUES FUR THE STACKIi-JG UF VaKIABLE ADDRESSES PKlUk TU THE IK USt 

li\ THE STi'.IiMG ur akITHmETIC UPEkaTIUIvaL I MSTRUCT IUmS . 

PUTPi-il IS THE SUBKuUTIuE USED FUK UUTPUTTING FORMAT STRINGS AND aLSU THE 

COMPUTED GOTO STkImG. ..PUTX.. UTILIZES ..PUTPhl... Im PaRT FOR THt 
OUTPUTTIiMG OF INSTRUCTIONS. WHEN A STRING OF 100 DIGITS FAS BEEN 
DbVhLUPED IM . .HUhbAS. . , THIS IS MOVED TO THE DISK BY . .WDK . . ,.AND 
..bUFBAS.. IS kESET TU TAKE THE NEXT STRING. 

PUTl Ar.iD PUT2 SUBKUUTINES EXAMINE AN INSTRUCTION AS UEVELOPED I im 



..INSTl.. AND ..INST2.. TO DETERMINE IF ANY SUBSCRIPTION IS REQUIRED 
IN THE INSTRUCTION. IF SO, THE SUBSCRIPTING INSTRUCTIONS ARE MOVED INTO 
..OUT.., THE INSTRUCTION IS MOVED INTO ..OUT+60.. AND THE NECESSARY 
ADDRESS MODIFICATION IS ACCOMPLISHED ULTIMATELY BRANCHING TO ..PUTX.. 
WHERE THE INSTRUCTION WITH ANY ADDRESS MODIFICATION REQUIRED FOR THE 
SUBSCRIPTION IS PUT INTO THE OUTPUT STRING ..BUFBAS... 

SCRIPT SUBROUTINE IS ENTERED TO INTERPRET THE SUBSCRIPT OF A SUBSCRIPTED 

VARIABLE. IF THE SUBSCRIPT IS NUMERIC, THE OBJECT-TIME CORE ADDRESS 
IS ADJUSTED CORRESPONDINGLY. IF THE SUBSCRIPT IS A VARIABLE, THEN A 
15-DIGIT RECORD IDENTIFYING THE WIDTH OF THE ARRAY, THE FIRST INDEX AND 
THE SECOND INDEX IS LOCATED AT THE TOP OF ..PHI.. (A BUFFER AREA) FOR 
USE LATER BY THE SUBROUTINES ..PUTl.. OR ..PUT2... 

SEG IS REFERENCED FROM THE SEGMENT STATEMENT AFTER SETTING THE SEG EXIT 

BRANCH. THE END INSTRUCTION IS PLACED IN ..OUT.. AND OUTPUT AS AN IN- 
LINE INSTRUCTION. SHOULD THE END SEGMENT OR THE SEGMENT STATEMENT EVER 
BE EXECUTED AT OBJECT TIME, THE RESULT WILL BE AS THOUGH THE END STATE- 
MENT HAD BEEN EXECUTED. THE LAST CORE LOCATION OF THE SEGMENT OR UN- 
SEGMENTED PORTION IS COMPARED WITH THE LAST CORE LOCATION OF ANY 
PREVIOUS SEGMENTS AND THE GREATER OF THESE PLACED IN ..LMAX.. WHICH 
LATER WILL BE USED FOR LOCATING THE RELOCATABLE SUBROUTINES AT OBJECT 
LOAD TIME. ANY REMAINING INSTRUCTIONS IN THE COMPILED INSTRUCTION 
STRING ..BUFBAS.. ARE OUTPUT TO THE DISK, AND FINALLY, IF THIS IS A 
SEGMENT STATEMENT, THE OBJECT T IME CORE "ADDRESS IS MOVED INTO" THE SYi-irt(]L 
TABLE OF EACH DEFINED SEGMENT. THIS SUBROUTINE EXITS TO ..BEGIN... 

SMTLU SUBROUTINE IS ENTERED WHEN A VARIABLE NAME HAS BEEN PLACED IN 

..SYM.. AND IT IS DESIRED TO OBTAIN THE OBJECT TIME CURE ADDRESS 
ASSOCIATED WITH THIS LABEL. IF THE LABEL IS IN THE SYMBOL TABLE, ITS 
ADDRESS IS RECOVERABLE FROM ..SMCNT... IF THE VARIABLE IS NOT IN THE 
SYMBOL TABLE, IT WILL BE PLACED IN THE NEXT AVAILABLE LOCATION AND ITS 
ADDRESS AT OBJECT RUNNING TIME WILL AGAIN BE FOUND IN ..SMCNT... THE 
ADDRESS ..SMTLUl+lI.. IS THE COMPILE TIME ADDRESS OF THIS VARIABLE I iM 
THE SYMBOL TABLE. 

SMTST TESTS TO SEE IF THE SYMBOL IN ..SYM.. IS A NAME IN THE FUNCTION 

TABLE, AND IF SO, A DIGIT IS PLACED IN THE USED FUNCTION TABLE ..USEDFS.. 
FOR THE CALLING OF RELOCATABLE SUBROUTINE AT LOAD TIME. 

SSB IN THE ..ASCAN.. SUBROUT I NE • I S ADDRESSED WHEN THE EQUAL SIGN HAS BEEN 

DETECTED AND PROVIDES FOR THE STORING OF THE COMPUTED RESULT TO CON- 
CLUDE THE ARITHMETIC STATEMENT. NOTE, THE MODE OF THE VARIABLE IN 
..INSTl.. AND ..INST2.. IS DENOTED BY THE DIGIT IN ..INST +14... A ZERO 
IN THIS POSITION DENOTES A FLOATING POINT VARIABLE. A DIGIT IN THIS 
POSITION DENOTES A FIXED POINT VARIABLE. ALSO, A FLAG IN POSITION 
..INST +12.. WILL OCCUR IF THE VARIABLE IS A SUBSCRIPTED VARIABLE. IiJ 
..INST +13.. WILL BE THE NUMBER OF THE SUBSCRIPT. THIS WILL BE 
USED IN ..PUTl.. AND ..PUT2.. TO DETERMINE WHICH SUBSCRIPT MOD I F I CAT I UN 
IS REQUIRED FOR THE VARIABLE IN QUESTION. 



STOP COMPILES TO A BRANCH AND TRANSMIT IMMEDIATE TO ..DTRB.. . THE 

Q FIELD WILL BE A 4-DIGIT FIELDOF THE NUMBERED STOP. 
SUBI IS THE SET OF SUBSCRIPTING INSTRUCTIONS WHICH ARE USED IN ..PUTl.. 

AND ..PUT2... AND WHICH GO IN-LINE DEPENDING ON THE SINGLE OR DOUBLE. 

SUBSCRIPTED VARIABLE REQUIREMENTS; 
SYm IS THE LOCATION WHERE ALL SYMBOLS — VARIABLE NAMES, NUMERIC LABELS AND 

CONSTANTS — ARE LUCAT ED ' PR I OR TO THEIR ASSOCIATION WITH AN ADDRESS IN 

THE SYMBOL TABLE. 

TESTDO AFTER EVERY NON-TRANSFER STATEMENT IS COMPILED THE DO SWITCH IS 

HEREIN tested' TO DETERMINE IF THE STATEMENT WERE NUMBERED AND IF IT WERE 
A TERMINAL DO STATEMENT. IF SO THE LAST 20-DIGIT RECORD PLACED BY 
..DO.. IS CALLED INTO ..OUT.. AND THE TERMINAL DO STATEMENTS ARE 
COMPLETED FROr-i THIS RECORD. THESE STATEMENTS RESIDE IN THE COMPILER 
UNDER THE NAME ..DORCRD... THE 20 DIGIT RECORD IS RESTORED TO THE CON- 
VENTIONAL -OOOOOOOUt-OOOOOOO** FIELDS AND THE SUBROUTINE CONCLUDES WITH 
A TEST TO DETERMINE IF THE STATEMENT TERMINATES MORE THAN ONE DO STATE- 
MENT. THE SUBROUTINE EXITS TO ..BEGIN... 

TFSAVE PROVIDES FOR TEi'iPORARY STORAGE OF PARTIALLY COMPILED RESULTS. 

TRIT CAUSES THE FINAL INSTRUCTION OF A STATEMENT STRING TO PERi-iIT TRACING 

AT OBJECT Tlrlt RUNNING. 

TRY BRANCHES TO THE I M IT I A L I Z AY I Olv OF THE SYMBOL TAciLE AFTER ALL RE- 

LUCaTadLE SObKiJOTIiJE MAl-iES HAVE wEElM STORED I THE SY.-iisOL TABLE. 

USi-iJFS IS A STkIWG UF «o DIGITS Tu PtKi-iIT II>thT 1 F ICrtT Ii> i.-F Tl-t: hV 

POSSIBLE SUhkijUTI,' L-S hiHICH iiaY ht KtFEKEh'CEU If THfc SUUkC- HRUGi;ftnS. 



LABELS IN COMPILE II 



COMPILE 2 IS BROUGHT INTO CORE FROM THE DISK BY THE END STATEMENT OR BY 
THE DATA STATEMENT. BOTH THE END AND THE DATA STATEMENTS CAUSE THE END 
INSTRUCTION TO BE COMPILED AND THE FINAL LIST OF INSTRUCTIONS TO BE 
PLACED ONTO THE DISK AS THE TERMINAL SECTOR OF THE PROGRAM INSTRUCTIONS. 
FOLLOWING THESE PROGRAM SECTORS ON THE DISK WILL BE SECTORS CONTAINING 
THE BRANCH POINTS OF THE SYMBOL TABLE AND CONSTANTS WHICH HAVE BEEN 
ENTERED INTO THE SYMBOL TABLE. 

DATLP PLACES CONSTANTS INTO THE VARIABLE LOCATIONS IN THE SYMBOL TABLE 

ACCORDING TO THE DEFINITIONS PROVIDED IN THE DATA STATEMENT. EXIT FROM 
THIS SUBROUTINE IS TO. .BEGIN... 

DCFDT IS THE DISK CONTROL FIELD OF THE DISK TABLE (PROGRAM INDEX) WHICH 

IS ADJUSTED TO INDICATE THE SATISFACTORY COMPILATION OF EACH PROGRAM. 
NOTE, THE INITIAL TRANSMIT DIGITS ARE EXECUTED AT SYSTEM LOAD TIME AND 
ADJUST THE SUBROUTINE PACKAGE FOR MEMORY SIZE AND SYSTEM DISK DEFINITION 

OST — INITIALIZES THE SUBROUTINE FOR OUTPUTTING THE REFERENCED SYMBOL TAbLE 
AND ALSO PLACING THE CONSTANTS AND BRANCH POINTS UNTO THE DISK. 

SADR FILLS THE OBJECT TIME CORE ADDRESS OF THE SYMBOL. 

SMTBO LOCATES THE END OF THE SYMBOL TABLE AND DEVELOPS THE SECTOR WHICH 

CONTAINS THE SECTOR INCREMENT TO THE SYi-iBDL TABLE, THE NEXT CURE 
LOCATION FOLLOWING THE LONGEST SEGMENT, THE END ( LUW CORE) OF THE SYriBOL 
TABLE, THE BEGINNING (HIGH CORE) OF THE SYMBOL TAdLE, A.vl) THE Eivi) (LO:: 
CORE) OF THE COi-ii-iON AREA. THESE ADDRESSES ARE FOLLOWED BY THE USED 
FUNCTION TABLE AND THIS ENTIRE SECTOR IS LOCATED Ii-:MEU lATELY BEEtjRE THE 
FIRST SECTOR OF THE CUMPILEU PROGRAri. 

SSV HANDLES THE ADDRESSES OF SUBSCRIPTED VARIABLES. 

TPRU TESTS NUMERIC LABELS TO DETERMINE WHETHER THEY ARE STATEi El\T 

NUMBERS, SEGMENT NUMBERS, FURmaT NUMBERS, OR PROCEDURE h^UVBERS. 
UPDKM AFTER TESTING TO SEE THAT i-u OVERLAP OCCURRED ANu THE SYr-ihUL T^BL^ 

WAS NOT FILLED, THIS UPDATES THE PROGRaI. INDEX OF ThF EXECUTIVE TO 

PERMIT THE RUNNING OR HOLDING OF THE Cf)MPILFO PrtlJGRAf!. 
WDSK WRITES A SECTOR OF CONSTANTS AK^D BRANCH POINTS OhiTO THF DISK. THIS 

SEGMENT HAS THE FORMAT A 5-DIGIT ADDRESS AND A 10-UIGIT FIELD REPEATED 

6 TIMES. 



LABELS IN THE CLASS A SUBROUTINES 



ADCK CHECKS THE DEFINITION OF THE ARGUMENT OF AN ..IF.. STATEMENT AND 

SETS THE HIGH POS AND EQUAL ZERO MACHINE INDICATORS. 

AOUT IS THE ENTRY POINT FOR OUTPUTTING A VARIABLE UNDER THE ..A.. SPECI- 
FICATION. 

BSEGA CONTAINS THE SECTOR ADDRESS-60000 OF THE FIRST SECTOR OF THE 

COMPILED PROGRAM AND IS USED TO LOCATE THE BEGINNING SECTOR OF SEGMENTS 
WITHIN EACH PROGRAM. 

BSTBG IS THE ADDRESS FOLLOWING THE LAST SYMBOL PLACED INTO THE SYMBOL 

TABLE . 

CALSR IS THE ENTRY POINT FOR CALLING INTO CORE A NEW SEGMENT AND IS EX- 
ECUTED FUR THE ..CALL SEGMENT.. STATEMENT. 
CARD BLANKS THE REMAINING OF 80 COLUMNS IN THE I/O BUFFER IN PREPARATION 

FOR THE OUTPUT OF THE BUFFER ONTO A CARD. 
COMBEG IS THE ADDRESS WHICH IDENTIFIES THE LOCATION OF THE FIRST VARIABLE 

IN THE SYMBOL TABLE AFTER THE RELOCATABLE FUNCTION NAMES. 

DCFER IS THE DISK CONTROL FIELD OF THE ERROR SECTION OF THE SUBROUTINES. 

DTKB CAUSES ANY TRACED VARIABLES REMAIN IMG IN THE I/O BUFFER TO BE OUTPUT 

PklUR TO THE EXECUTION OF A ..PAUSE, STOP OR END.. STATEMENT. 
ERi-iA CONTAINS THE ADDRESS OF THE FIRST DIGIT OF THE ERROR MESSAGE TO BE 

OUTPUT WHEN BRANCHING TO ..ERR.. 

\-.kll IS THE ENTRY POIr-.lT FOR THE ERkOR i-iESSaGE ..UFLU.. — Ui ■DEP.FLU'-. . 

ERR CAUSES THE PRtSET ERROR MESSAGE TU lit (jUTHUT BY i.EAivS UF KEAOIivG Ii\'Tu 

CURE THE ERROR SECTIUls OF THE SUbKOUT IimES . 
EkKUK CONVERTS AN F SPEC TU Aiv' E SPECIFICATION IF Tht i-.iUrM3EK IS Tllui 

LakGE to be OUTPUT Ul--;i;ER THE F SPEC. 

ESi-iA IS Ti-;E LOCATION OF THE ADDRESS OF THE ..STliP OR END.. i:ESS/>.GE. 

ETYPc IS THE ENTRY PUINT FOR OUTPUTTIivG A NUi BER UivUER Tl-it ..t.. SPlCI- 

FIC AT I ON. 

FAU IS THE SUBRUUriivE ENTRY PUIimT FOK FLUATIi'G AUDITIOiv, 

FaXo IS THE El\iTKY POINT FOR RAISING A QUANTITY TU A POSITIVE ELdaTIimG 

POINT VARIABLE OK CONSTANT. 
FAXbi>l IS THE ENTRY PUINT FOR RAISING A QUANTITY TO A NEGATIVE FLUATIiMG 

PUINT VARIABLE OK CONSTANT. 
FAXI IS THE ENTRY POINT FUR RAISING A QUANTITY TO A POSITIVE FIXED 

PUINT VARIAbLE- OK CUNSTANT. 
FAXIl\! IS THE Ei-iTRY PUINT FUR RAISING A QUANTITY TU A NEGATIVE FIXED POINT 

VARIABLE OR CONSTANT. 

FDV IS THE ENTRY POINT FOR FLOATING POINT DIVISION. 

FDVR IS THE ENTRY POINT FOR REVERSED FLOAT ING DIVIDE. 

FIX IS THE ENTRY POINT FOR CONVERTING A FLOATING POINT VALUE TO THE FIXED 

PUINT i-iODE. 

FLOAT IS THE ENTRY POINT FOR CONVERTING A FIXED POINT NUMBER TO THE 

FLOATING POINT MUDE. 



FMP IS THE ENTRY POINT FOR FLOATING POINT MULTIPLICATION. 

FSB— IS THE ENTRY POINT FOR FLOATING POINT SUBTRACTION. 

FTYPE IS THE ENTRY POINT FOR THE OUTPUT UNDER THE F SPECIFICATION. 

FXA IS THE ENTRY POINT FOR FIXED POINT ADDITION. 

FXD IS THE ENTRY POINT FOR FIXED POINT DIVIDE. 

FXDR IS THE ENTRY POINT FOR FIXED POINT REVERSED DIVISION. 

FXM IS THE ENTRY POINT FOR FIXED POINT MULTIPLICATION. 

FXS IS THE ENTRY POINT FOR FIXED POINT SUBTRACTION. 

HTYPE IS THE ENTRY POINT FOR THE I/O OF ..HOLLERITH.. CONSTANTS IN THE 

..FORMAT.. STRING. 

INCHI THIS SUBROUTINE IS A RECORD TRANSMITTED TO ZERO AS THE LAST SUB- 
ROUTINE EXECUTED PRIOR TO OBJECT TIME RUNNING. IT INITIALIZES ..INOUT.. 

(THE INPUT-OUTPUT BUFFER) LOCATED AT 404 THROUGH 693 TO 

INPUT IS THE ENTRY POINT FOR THE INPUT OF F,E,I AND A TYPE SPECIFICATIONS. 

ISETYP CHECKS TO SEE . IF THE VARIABLE OUTPUT WAS AN ..ETYPE.., AND IF SO, 

DEVELOPS THE EXPONENT TO FOLLOW THE NUMERIC VALUE. 
ITYPE PLACES ALL FIXED POINT NUMBERS IN THE I/O BUFFER. A FLAG AT 

..FAC-1.. IS THE 2 DIGIT EXPONENT FOR AN ..ETYPE.. VARIABLE. A FLAG AT 

..FAC-3.. IDENTIFIES THE ADDRESS FOR TRACED OUTPUT. 
IXCK CHECKS THE DEFINITION WITHIN RANGE OF THE INDEX OF A COMPUTED 

..GOTO.. STATEMENT. 
LWKFLG PROVIDES THE ENTRY TO THE EXECUTIVE WHEN AN ASTERISK CONTROL CARD 

HAS BEEN READ BY A PROGRAM UNDER EXECUTION. CONTROL IS TRANSFERRED TU 

THE EXECUTIVE FOR THE PROCESSING OF THE CONTROL CARD. 

LOOK IS THE ENTRY POINT FOR EACH VARIABLE IN AN I/O LIST AFTER THE FORMAT 

.HAS BEEN PRE-SET BY THE I/O DEFINITION. 

LTPAR SETS THE IDENTITY OF THE BEGINNING OF A . . FURiiAT . . 

NUMBR IS THE ENTRY POINT FOR THE INPUT OR OUTPLIT OF i-IUiiBERS UMOER THE 

F,£,I OR A TYPE SPECS. 

POST RESETS THE I/O SUBROUTINE FOR A NEW LIME FUR IiNPUT OR OUTPUT. 

PRBS WILL CONTAIN THE SECTOR ADDRESS -60000, OF THE BEGINNIi'^'G OF PRUGRAi 

STORAGE AS ALLOCATED AT SYSTEM LOAD. THIS WILL BE USED Tl! PREVFi^.^T DATA 

SECTORS FROM BEING WRITTEN ONTO THE DISK INi THE PROGRAM STORAGE AREA. 
PRTR IS THE ENTRY POINT FOR THE ..PRINT.. STATEMEK'T AND ESTABLISHES THE 

FORMAT FOR THE OUTPUT LIST. 
RACD IS THE ENTRY PUINT FOR THE ..READ.. STATEMENT AMD ESTABLISHES THE 

FORMAT FOR THE INPUT LIST. 
READ IS THE ACTUAL INPUT-OUTPUT INSTRUCTION. 

RSST IS AN ADDRESS AVAILABLE IN THE FORMAT STRING TO PERMIT A REPETITIDN 

OF ONE OR MORE FORMAT SPECIFICATIONS A DESIGNATED NUMBER OF TIMES. IT 
OCCURS IN THE FORMAT STRING CORRESPONDING TO THE RIGHT PARENTHESIS OF A 
MULTIPLE FORMAT SPECIFICATION. 

RTPAR RESETS THE ..FORMAT.. STRING TO REPEAT THE ..FORMAT.. AND ALSO EXE- 
CUTES THE I/O WHICH HAS BEEN THUS FAR COMPLETED. 

RVSGN REVERSES THE SIGN OF THE VARIABLE IN ..FAC. 



S.ETOiME P-ROVID-E-S F-OiR SETTING, ...FAC. TO FLOATING POINT POSITIVE ONE., 

S:LASI-H tS AN ADDRESS IN THE FORMAT STRING WHICH WILL TERMINATE A LINE OF 

INPUT-OUTPUT AND INITIALIZE THE I/O- STRING FOR A NEW LINE. 

STFMT GHECKS TO SEE IF AN-Y TRACED. VARIABLES ARE IN THE I/O BUFFER AND 

OUTPUTS THESE VARIABLE,S^ IF THEY EXIST,: PRIOR TO THE EXECUTION OF AN 
INPUT OR OUTPUT STATEMENT. 

TIGER- — IS THE NORMAL EXIT TO THE EXECUTIVE FROM A RUNNING PROGRAM FOLLOW- 
ING THE EXECUTION OF AN ..END... OR A ..STOP... STATEMENT. 

TRFL- — IS THE ENTRY POINT WHEN A FLOATING POINT VARIABLE MAY BE TRACED. 

TRFM- IS A FIELD WHICH REPLACES .....READ... WHEN THE I/O BUFFER CONTAINS 4 

TRACED VARIABLES FOR THE OUTPUT OF THESE TRACED VARIABLES. 
BUFFER CONTAINS 4 TRACED VARIABLES FOR THE OUTPUT OF THESE TRACED VAR- 
IABLES.. 

TRFMT IS THE FORMAT STRING UTILIZED WHEN TRACED VARIABLES ARE OUTPUT TO 

CARDS. 

TRFX IS THE ENTRY POINT WHEN A FIXED POINT VARIABLE IS TO BE TRACED. 

TROT CAUSES THE OUTPUT UF THE I/O BUFFER IF AN OUTPUT STATEMENT HAS BEEN 

COMPLETED OR RETURNS TO THE MAINLINE PROGRAM IF A SINGLE VARIABLE HAS 

JUST BEEN PUT INTO THE I/O BUFFER BY TRACING. 
TVAR TESTS THE VARIABLE IN THE ADDRESSED SUBRUUTIaIE AND ALSO THE VARIABLE 

IN ..FAC... FOR DEFINITION. 
Ui)V SETS THE EKRl)K MESSAGE WHEiv A VARIABLE IS UiMDEFINEO. 

WACO- — IS THE tNTKY POIl-.'T FOR THE .. PUNCH.. STATEf-iENT A.«u tSTAhLISHFS THi: 

FuRi-.AT FOr; THE OUTPUT LIST. 
I'lATYL- IS THE EMTRY POINT FOR Tht ..TYPE... STATE!'->I?NT AH) ESTABLISHES THE 

FURhAT FUR THE OUTPUT LIST. 
WRITi: DETERnlNbS HHETHEK THE I/O BUFFER i-UST BE CLEARED FOR CARD UUTPMT 

UK i-IHETHER A RECURD iiARK IS TU BE PLACED AT THE l-Nu nF THE LMITHUT I TPb 

lU.'FFER FUR TRaMSFEK TO THE TYPEWkITER UK PRINTER.. 
XTYPb IS THE Er:TRY POINT FOR THE X SPtCIH ICAT I(:N,- SPECIFYIi-(; A MhirjhR '-r 

CULUr'iuS Tu bE SKIPPED. 
ZERFAC~ — IS THE ENTRY PUIivT FUR ZERljIi'-'G THE FLOAT IKG aCCU; 'ML A TOR.. 



LABELS IN THE ERROR SECTION OF THE CLASS A SUBROUTINES. 



COINS BEGINS THE 3 STATEMENTS FOR THE OUTPUTTING OF THE SYMBOL TABLE TO 

CARDS. 

D43BUF IS THE BUFFER FROM WHICH THE SYMBOL TABLE IS OUTPUT FOLLOWING AN 

ERROR. THIS BUFFER IS FILLED BY A READ TO THE DISK AND A READ. 
FROM THE DISK TO THE BUFFER PRIOR TO THE OUTPUT, 

DPEND DETERMINES WHEN THE END OF THE SYMBOL TABLE HAS BEEN OUTPUT AND RE- 
TURNS CONTROL TO THE EXECUTIVE. 

ERRl DETERMINES WHETHER THE MESSAGE TO BE OUTPUT IS A ..STOP.. OR. .END.. 

IN WHICH CASE CONTROL RETURNS TO THE EXECUTIVE. 

ERR2 IS THE ENTRY POINT WHEN AN ERROR HAS BEEN DETECTED AT RUN TIME. 

THE ERROR MESSAGE IS ESTABLISHED FOR OUTPUT TO BE FOLLOWED BY THE ENTIRE 
SYMBOL TABLE IF SWITCH 3 IS ON. 

PERR PREPARES THE MESSAGE TO BE OUTPUT TO A CARD. 

PRTER OUTPUTS THE MESSAGE TO THE PRINTER IF SWITCH 2 IS iW . 

TERR CAUSES THE MESSAGE TO BE OUTPUT TO THE TYPEWRITER WHEN SWITCH 2 

IS OFF. 
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CFCT 


11060 


12930 




















CFCTA 


12750 


12850 


1 2870 


















CFCTB 


12760 






















CFCTC 


1 2830 






















CFM 


00800 






















CFXN 


00780 


1860 


1 870 


01910 


01940 


03930 


04560 


04950 


05030 


06030 


061 10 




07840 


08670 


08 730 


09420 


09870 


10080 


11 820 


14200 








CHI 


00 1 50 


00420 


00560 


00570 


006 00 


00620 


00630 


00630 


00640 


00730 


00740 




018 10 


01830 


01850 


02290 


02320 


02360 


02380 


02410 


02460 


02470 


02470 




02740 


02760 


02800 


02800 


02850 


02890 


02900 


02900 


02930 


03010 


03010 




03180 


03180 


03190 


03200 


03200 


03210 


03 240 


03250 


03250 


03460 


03490 




03870 


03890 


03920 


03920 


03980 


04530 


04530 


04540 


04930 


04930 


05010 




05990 


06000 


06100 


06100 


06160 


06190 


06 190 


06260 


06270 


06540 


06680 




06840 


06990 


06990 


07030 


07050 


07300 


07300 


07340 


07340 


07370 


07430 




07530 


07530 


07590 


07650 


07650 


07720 


07720 


07770 


07770 


07820 


07820 




07970 


07990 


07990 


08020 


08120 


08120 


08130 


08 160 


08360 


08360 


08440 




08 510 


08570 


08590 


08610 


08630 


08660 


08660 


08720 


08720 


08840 


08870 




09450 


09470 


09560 


09560 


09690 


09690 


09710 


09790 


09790 


09860 


09860 




10170 


10 170 


10420 


10640 


10680 


10710 


10730 


10760 


10780 


10800 


10820 




10950 


10950 


11290 


1 1 300 


11310 


11310 


1 1 330 


1 1480 


1 1480 


119 00 


1 1920 




13620 


13630 


14370 


14370 


14380 


14380 


14410 


14450 


14450 


14470 


14490 


CL 


23450 






















r Mn A 
ri u M 


J. 


12300 




















rlUD 




12370 




















CMPAR 


03040 






















r MDI T 


1 QG on 

1 VO cU 


1 QQ OCi 




C. D OOU 
















r Ml M T 


111 An 














































CODD 


1 1610 






















CODE 


10480 


1 1 680 


12190 


1 2280 


12390 


12720 












COLECT 


03430 


03640 


03960 


















COMBEG 


28010 


28020 


28030 


28040 


28050 


28100 


28240 


28340 








COMM 


00070 


07220 


14120 


















COMMON 


1 1740 


11780 


12070 


12590 


12610 


12790 


12820 


12840 


12940 


12950 


12970 


COMP 


01900 


1930 


020 10 


02020 


02030 


02 040 


02070 


02080 


02150 


02170 


02550 


COM PA 


00660 


00670 


00690 


00700 


00710 


00720 


00760 


00860 


00890 


14040 




COMPUT 


06010 


06160 




















CONFMT 


00060 






















CONGO 


14560 


14560 


14740 


14740 


15280 


15320 












CONTRL 


00080 


04910 


04940 


















COS 
























COUNT 


21120 


21240 


21570 


21580 


21590 


22250 


22260 


22270 


22320 


22330 


22340 


CRAM 


00290 


05100 


05220 


05250 


07870 














CS 


02400 


02420 


02810 


03850 


07320 


07350 


07660 










CSORN 


01940 


02 300 


03600 


06200 


06880 


07000 


08040 


08150 


10670 


14430 


14520 


CSUB 


11120 
























12200 






















CT AB 


24370 






















CTR 


20050 


20080 




















r 7 1 


X -3 7 ->U 






















r 7 9 
u z. ^ 


1 5 960 


23890 


241 60 


















C Z3 


i D V f u 






















CZ4 


1 5980 






















DATA 


r» o 1 1 n 
UU 1 iU 


nv ■5Qn 


1 A 1 ■^n 

i *ti jU 


















n AT 1 D 


1 Z».f\70 

1 *T P f u 






















DBUF 


1 46 10 


1 48 00 


i f o ju 


1 AQc^ n 


1 C\ A nn 

X -> O UU 


1 cA5n 












UL UWIN 
























DC F 


00360 


01630 


1 660 


01680 


01700 


01 730 


05650 


13700 


1 3720 


14230 


14310 




1 5 440 


1 5460 


1 5480 


15530 


15710 


15720 












DCFOT 


1 5690 


1 5700 


1 5760 


1 5840 
















DC FE R 


16000 


22 510 




















DCFEX 


00020 


13660 




















DCFSG 


15990 


20790 


20820 


20830 


20880 


20890 


20930 


20940 


20940 


20950 


20960 


DEC 


22670 






















DERR 


28680 


28730 




















DIM 


00080 






















DIMA 


07400 






















D 1MB 


07380 


07410 


07680 


















DIMC 


07480 






















D IMD 


07590 






















n IMnNT 


07360 


07420 


07540 


07550 


07610 


07670 


07680 










U 1 V L/ 1 V7 


1 8020 






















DKCF 


28450 


28470 


28610 


28630 


28640 


28700 


28830 


28840 


28850 








06370 






















DMM 


02120 
























05890 


059 10 




















u n o w o n 


n p 1 s>n 


073 10 


07330 


0760 


0763 














DO 


nnnnn 






















DORCRD 


05 1 30 


05800 


08270 


1441 
















DOSWCH 


00820 


05120 




















DO 1 


08 170 






















D02 


07620 


08090 


08 190 


















DPEND 


23940 






















DSADO 


06920 


06970 


06980 


07060 


07080 


07130 


08280 


15720 


15730 


15740 


15820 


DSTPR 


23640 


23870 




















DTAB 


27530 


27550 




















DTRB 


04990 


19360 


19390 


23710 
















DUMMY 


28490 


28770 


28780 


28790 


28800 














DUMP 


01540 


05900 




















DVRND 


17970 


17990 





















07440 07500 



00740 
02490 
03020 
03490 
05010 
06710 
07430 
07900 
08440 
08990 
10050 
10840 
11940 
14490 



01790 
02590 
03080 
03820 
05800 
06720 
07460 
07940 
08450 
09320 
10050 
10910 
12740 
14570 



01800 
02720 
03110 
03820 
05930 
06720 
07470 
07950 
08470 
09320 
10060 
10910 
12740 
14640 



01800 
02740 
03140 
03830 
05990 
06840 
07470 
07950 
08490 
09430 
10110 
10930 
13610 
15670 
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23100 
22790 
23090 
24082 
24120 
24080 
24180 
24110 
24240 
24170 
07190 
08770 
10050 
06990 
26050 
07130 
07620 
16960 



04990 
24100 
15570 
04700 
05750 
07240 
06820 
20140 
13500 
10520 
10580 
10610 
23640 
04360 
19340 
04350 
26090 
23630 
19000 
16840 
20120 
22510 

043 70 
22400 
24860 
23680 
23960 
05920 
23440 
25540 
03630 
03610 
21550 
20500 
23110 
21310 
04470 
25380 
25510 
05570 
02550 
22920 
27860 
17420 



16400 

16680 
16880 
16760 
03950 
18270 
18220 



OX 

DXl 

DZ 

D43BUF 

D43IN 

D43L0C 

D43L0P 

0430UT 

D43PR 

D43SK 

EDCF 

EFINO 

ELEVEN 

ELL 

ELOG 

EMM 

ENDCOM 
ENDD 



ENDINS 

ENDM 

ENDP 

ENDPRG 

ENDSEG 

ENDSW 

ENDTR 

EOL 

EQSW 

EQ2 

EQ3 

EQ4 

ERBEG 

ERFMT 

ERIN 

ERIOLS 

ERLNM 

ERM 

ERMA 

ERO 

ERP 

ERR 

ERRMSS 

ERROR 

ERRTR 

ERRl 

ERR2 

ESEGBR 

ESMA 

ETAB 

ETAC 

ETAN 

ETYPE 

ETYPEX 

EX 

EXP 

EXPROC 

EXPl 

EXP2 

EXREC 

EXSYM 

EXl 

F 

FAC 



22560 22770 22800 23200 
22750 



FAD 

FADl 
FAD2 
FAD3 
FAGR 
FAXB 
FAXBN 



23290 
24130 
24210 

24180 24190 24240 



22940 
24108 
23560 
23920 
24280 

23550 23890 23930 24160 24170 24180 24200 24260 24270 

24220 

23910 

07260 07270 07280 13710 

08600 08650 08710 

09910 10110 

07050 

25640 



05140 05150 07100 
13760 14290 

16770 16870 17050 17100 17170 17290 17340 17360 17840 
18700 18810 18840 18880 18900 24820 24880 24900 25500 
27220 27230 27280 27590 27630 27850 29930 
14160 



00350 
07610 
16520 
18660 
27210 
05780 
19 370 
15020 
00090 
00090 

07230 14360 
00080 

20330 29680 29700 

10490 10540 10700 13020 13200 

10560 

10520 

10530 

23590 24150 
03560 08840 

21230 21650 21900 22900 22970 23010 23060 23180 23270 
03560 
26060 
23690 
16840 
18630 
20070 
16850 
29100 
06260 
22360 
24490 
23720 
23680 
05750 
19370 
18670 
02170 
03370 
22410 
21550 
22630 
21520 
00090 
25320 
25120 
04480 
02680 
22640 
27790 



18170 18200 18340 18370 18620 
26010 26040 26430 26790 26830 



23700 23710 23740 23795 23830 23960 23970 23980 24000 
19340 19510 22500 23970 24860 26060 26440 28190 29090 29530 29650 
25520 



16930 17250 18000 18780 19350 19380 19410 19520 24870 
29540 29660 
07690 



25510 26050 26070 26450 28200 



23750 23790 23840 23990 

05770 05770 05880 05890 05980 14140 14180 
19400 23680 23690 
18680 25080 25100 
03370 04010 

03380 03390 03450 03510 03590 03680 03690 03730 04010 04020 04040 14440 
22000 

22890 23160 

21560 21660 21840 22130 22170 22200 22230 22270 22290 22310 22350 
25330 25340 25350 25390 25400 25410 25440 
06890 

23150 23230 



00980 


06420 


10350 


11360 


12490 


13170 


16430 


16440 


16470 


16480 


16500 


16600 


16610 


16610 


16630 


16650 


16660 


16680 


16700 


16730 


16760 


16770 


16780 


16790 


16790 


16860 


16880 


16890 


16890 


16920 


16950 


17040 


17090 


17140 


17160 


17190 


17200 


17260 


17280 


17340 


17350 


1 7910 


17920 


17960 


17980 


18060 


18110 


18160 


18310 


18330 


18450 


18470 


18530 


18540 


18570 


18580 


18600 


18610 


18670 


18690 


18750 


18760 


18800 


18850 


18890 


18950 


18980 


18980 


18990 


19010 


19020 


19030 


19100 


21390 


21400 


21410 


21480 


21500 


21680 


21690 


21710 


21720 


21720 


21730 


21860 


21870 


21910 


21910 


22020 


22080 


22100 


22110 


22120 


22120 


22150 


22160 


22160 


22190 


22190 


22210 


22220 


22220 


22240 


22490 


22540 


22550 


22650 


22980 


23020 


23030 


23030 


23050 


23070 


23080 


23100 


23120 


23330 


23330 


23340 


23350 


23410 


23410 


2 3420 


23430 


24370 


24400 


24430 


24450 


24480 


24500 


24520 


24530 


24550 


24560 


24570 


24580 


24590 


24590 


24600 


24610 


24620 


24620 


24630 


24640 


24650 


24660 


24670 


24670 


24680 


24700 


24710 


24710 


24720 


24730 


24760 


24760 


24790 


248 00 


24810 


24820 


24830 


24840 


24840 


24890 


25100 


25110 


25130 


25150 


25180 


25190 


25200 


25210 


25250 


25260 


25300 


25310 


25320 


25370 


2 53 70 


25460 


25470 


25480 


2 5490 


25620 


25630 


25650 


25660 


25670 


25680 


25690 


25730 


25810 


25870 


25880 


25890 


25900 


25910 


25930 


25940 


25950 


25950 


25960 


25970 


25990 


26000 


26010 


26020 


26030 


26030 


26160 


26190 


26220 


26240 


26250 


26260 


26280 


26280 


26290 


26300 


26310 


26320 


26330 


26360 


26380 


26380 


26390 


26400 


26410 


26420 


26560 


26660 


26760 


26780 


26800 


26870 


26890 


26900 


26910 


26920 


27000 


27030 


27040 


2 7060 


27090 


27100 


27110 


27120 


27130 


27130 


27140 


27150 


27160 


27170 


27180 


27190 


27200 


27240 


27250 


27270 


27280 


27290 


27290 


27300 


27550 


27560 


27580 


27610 


27820 


27830 


27840 


29480 


29900 




























06450 


13450 


16330 


16340 


16360 


16370 


16440 


16480 


16490 


16500 


16510 


16560 


16570 


16570 


16630 


16670 


16680 


16730 


18820 


18850 


18860 


18870 


















16450 


16530 


16540 


16560 


16590 


16690 


16710 


19040 
















16760 






























16430 


16910 


19020 


























03790 


03840 


03900 


03910 


03970 






















13480 


18220 


18230 


18250 


18290 


18360 





















13480 18240 
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1 8660 


F AXBl 


18370 












17780 


FAX I 


13360 


17730 


17740 


17760 


17800 


17830 


17730 


FAXIN 


13370 


17750 










18160 


FAXI 1 


17820 


17840 










06620 


FCTEND 


00280 


02180 


13690 


13760 


13780 


13790 


17940 


FDV 


13470 


17910 


17970 


17990 


18010 


18030 


17910 


FOVR 


13470 


17850 


17920 


26820 


26840 




18110 


FDV 1 


18070 












16830 


FILL 


16780 


25960 










09220 


F INI SH 


09200 












18750 


F IX 


13380 


13380 










17560 


F IXER 


18820 












20280 


FIXFLG 


21350 












12980 


FIXl 


11590 












13380 


F 1X2 


12980 


13050 










18820 


FIX3 


18790 












22840 


FL 


22620 


22880 


23180 








20460 


FLAGS 


20190 


20470 


20480 


20490 


20500 


20510 


13540 


FLAGSW 


03520 


04060 


10860 


10880 


10960 


11270 






12890 


12960 










02950 


FLNUMB 














18950 


FLOAT 


13400 


13400 










13000 


FLOATl 


11640 












13400 


FL0AT2 


13000 












17430 


FLTONE 


17850 


18690 


24890 


26160 


26820 


29900 


05440 


FLl 


02630 


02690 










18430 


FMP 


13460 


13460 


18090 


18120 


18160 


18190 


18560 


FMPl 


18490 


18510 










18590 


FMP2 


18100 


18130 


18550 








09780 


FMTSP 


08430 












17440 


FNINES 














13030 


FQF 


10490 


10550 










08360 


FORMAT 


00050 












13900 


FRECK 


13840 












16330 


F SB 


13450 


16360 


16470 


16490 


16650 


16800 


08440 


F SCAN 


08480 


08500 


08 540 


08810 


09020 


09160 


1 35 10 


F STSW 


09820 


10660 


10750 


10870 


10900 


10980 


22290 


FTYPE 


21540 












20520 


FTYPEX 


21750 


22370 










23050 


FX 


22880 












17070 


FXA 


13490 


17090 










17220 


FXD 


13490 


17190 


17240 


17270 






17190 


FXDR 


13490 












13340 


FXEXP 


11630 












17120 


FXM 


13490 


13490 


17140 








02620 


FXNUMB 


02860 












02350 


FXORFL 


02330 


02430 


02620 


03280 


03510 


13350 


17020 


FXS 


13490 


17040 










05450 


FXl 


00450 


02450 


06930 








1 7450 


FZEREC 


16860 


21390 


22540 


22550 


24800 


25160 


04530 


GETNO 


04470 


04600 


04610 


04710 


05600 


05680 


04880 


GGG 


06020 












1 5370 


GOER 


15390 


15510 










03720 


GORE 


00470 


03480 


03540 


03700 






05990 


GOTO 


00090 












04830 


GOTORC 


06080 












09300 


GPHBG 


06240 












05110 


GPTl 


04920 


04960 


05050 


05710 






04510 


GPXTD 


04690 












04750 


GPX8 


06050 












09640 


HCONTl 


09570 












09700 


HC0NT2 


09550 


09670 










09690 


HC0NT3 


09740 












09730 


HC0NT4 


09620 


09700 










16250 


HDER 


16230 












04100 


HDWRER 


00200 


14130 










04390 


HERRM 


04100 












21810 


HO HO 


21670 












09420 


HOLL 


08580 












09670 


HOLL 1 


09550 


09620 










09600 


HOLl 


09440 












09530 


H0L2 


09460 












21200 


HR 


21150 












21110 


HT YPE 


09540 












2 0470 


HTYPEX 


21090 


21130 










06510 


IDCF 


00480 


00500 


00520 


00 540 


08850 


13650 


09790 


I F 


00060 












10320 


IFRC 


100 10 


10030 










09850 


I FSS 


33 50 












10330 


IFSSRC 


09850 












1 3560 




00450 


09830 










13580 


IMAGE 


14340 


15370 


15390 


15510 


15520 


15570 


1 5410 


I MOOT 


14330 


14330 


15590 


15590 






16110 


INCH I 


16090 












25750 


INI T 


25710 












13650 


INITL 


00180 


00260 


00310 


00330 






16180 


INOUT 


16110 


16130 


19170 


19280 


19310 


19870 






29050 


29060 


29110 








22540 


INPUT 


21360 












06420 


INSTl 


00910 


04900 


04910 


04940 


05020 


05090 






09930 


09940 


09960 


09990 


10500 


10520 



19310 19870 20180 20210 20290 20360 20550 20600 21220 21640 21890 
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11250 


11260 


11360 


11420 


11430 


11440 


11460 


11470 


11520 






12290 


12460 


12470 


12480 


12490 


12510 


12520 


12530 


12560 






12850 


12880 


12900 


12910 


12950 


13030 


13040 


13060 


13110 






13260 


13270 
















06450 


INST2 


00930 


05060 


05070 


07710 


07740 


07760 


07790 


07810 


07830 






09950 


10510 


10530 


10560 


10590 


10620 


11530 


11550 


11580 






12140 


12200 


12210 


12230 


12300 


12320 


12350 


12430 


12450 






12760 


12810 


12830 


12910 


13040 


13050 


13120 






22910 


INT 


22830 


22920 


22930 


22940 


22960 


22990 


23020 






23780 


INVAR 


19340 


















08340 


lOINST 


07890 


















07830 


101 


07730 


07780 


07800 














07900 


102 


07900 


07960 


08080 














08010 


103 


00060 


07970 


08100 


08200 












08090 


104 


08000 


08030 


08180 














08190 


105 


07090 


08240 


08250 


08260 












08310 


106 


05340 


















07950 


107 


08330 


















24084 


IR2 


23980 


















22000 


ISETYP 


21810 


















22070 


ITYPE 


21440 


















20510 


ITYPEX 


21700 


21810 


21820 














19470 


IXCK 


04830 


19470 


19490 


19530 












24088 


IXERM 


19510 


















19510 


IXERR 


19540 


















19530 


IXMX 


04840 


19530 
















20340 


JEAN 


20140 


20160 
















07020 


KAY 


06980 


















06120 


KK 


06070 


06140 
















10090 


KKK 


10040 


10100 


10200 














06590 


L 


00380 


00560 


00840 


00880 


01180 


01290 


01300 


01600 


04500 






05860 


05970 


06170 


06180 


06220 


07080 


08380 


09140 


09280 


13610 


LAD 


00570 


00580 


00680 
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9 A 
it) 


n7 ft7ft 
U f o f o 


07856 


AQ 9 Q A 

uy <iou 


1 1 9 ft 


9 1 

z: X 


n7 Q7 ft 
U 1 o f 


A7 Q7 1 
U f o f X 


AQ 9QA 

uy <iyu 


1 1 9 c n 


9 7 


n 9 1 A ft 
\J C.L OO 


A 7 ft 7 1 
U ( H ( X 


A Q A A 

U"7 OUU 


1 1 9 A 9 


A O 


nn Q7 9 
UU ^ i c. 




093 10 


1 1 9 7n 


3 1 


00760 


A A 7 7 9 
UU (Id 


09 320 


112 82 


49 


1 294 




AQ 9 O A 


119 on 

1 1 C 7U 


1 A 


1 n7 1 7 
X u / 1 r 


T X 


09340 


11302 


32 


08 342 


00000 


09350 


11314 


26 


11313 


08343 


09360 


11326 


49 


10294 




09370 


11334 


16 


10717 


+0294 


09380 


11346 


12 


11313 


00061 


09390 


11358 


46 


10718 


01100 


09400 



LABEL MNEM OPERANDS AND REMARKS 





TFM 


TRANS+23,LTPAR 




TFM 


TRNSBR+6, FSCAN 




B7 


TRAN 


SWL P 


BNH 


PUNCT 




CM 


CHI ,69 , 10 




BH 


HOLL 




TD 


TRANS+19,CHI 




TFM 


C C T Km A 




CM 


CHI ,41 




BE 


TIER 




CM 


CHI ,49, 10 




BE 


TIER 




TFM 


EFIND , , 10 


T lER 


TR 


CHI-1 ,CHI+1 




BTM 


CFXNjOO, 10 




BT 


WIDTST ,WIDTST- 




TF 


RPFMT+21 ,SYM 




TFM 


TRANS+23,00, 10 




BNF 


PRETRN, EFIND-1 




TR 


CHI-1, CHI+1 




BTM 


CFXN, ,10 




SF 


SYM-1 




TF 


TRANS+23,SYM 


PRETRN 


CF 


TRANS+20 


EF IND 


DS 


2,* 




CF 


TRANS+22 




SF 


TRANS+23 




SF 


TRANS+19 




T FM 


TRNSBR+6 , FSCAN+ 12 


TRAN 


C M 


IRANS+18 ,PHI+h65 




BNH 


T RANS 




TR 


CHI — 31 ,cKt-MT-l 




RN 


T nr P 7nA 
I UU r , r UU 




TR 


LSTD+30 ,AV0ID-1 




BTM 


LSTC ,CHI-30 




BC2 


CEXEC 




BT 


BA,BA-1 




B7 


CEXEC 


TRANS 


AM 


*+18,5,10 




TFM 


PHI + 6 




A 


PHI-1,TRANS+11 



TRNSBR B 

DORG *-l 



WIDTST 


SF 


SYM-1 








TF 


TRANS+21 , 


SYM 






BB2 








PUNCT 


CM 


CHI 


,4221 


,10 




BNE 


«+44 








TFM 


TRANS+23, 


SLASH 






TFM 


TRNSBR+6, 


FSCAN 






B7 


TRAN 








NOP 






» » » » 




SM 


RPPRl+11 


,1 


,10 




BNH 


RPR 








TFM 


TRANS+23 


,RSST 






TFM 


TRNSBR+6 


,RPPR1-12 






87 


TRAN 








AM 


TRANS+18 


,2 


,10 


RPPRl 


TFM 


TRANS+18 




,610 




AM 


PHI-1 


,2 


»10 




SM 


RPPR2+11 


,PHI 






A 


RPPR2+11 


,L 




RPPR2 


TFM 


TRANS+23 








TFM 


TRNSBR+6 


, FSCAN 






TFM 


RPPRl+11 




,10 




B7 


TRAN 






RPR 


TFM 


TRANS+23 


,RTPAR 






TFM 


TRNSBR+6, 


FINISH 






B7 


TRAN 






FINISH 


TFM 


«+30,PHI 








A 


»+18,PHI- 


1 






TR 


,BRINST+5 






TD 


♦+23,PHI- 


1 






BD 


«+24,210 








AM 


PHI-1, 1,10 






TF 


PHI+6, L 








A 


PHI+6, PHI 


-1 




GPHBG 


BT 


PUTPHI 


, PHI-1 






B7 


BEGIN 






CONFMT 


TR 


CHI-1 


,CHI+11 






B7 


FSCAN+12 




,5 


RPFMT 


TFM 


TRAN-1 


!rpti 






SF 


SYM-1 








TF 


*-l 


,SYM 






B7 


FSCAN+12 






RPTl 


TFM 


TRAN-1 


, FSCAN+12 






SM 


RPFMT+23 


,1 


,10 




BH 


TRAN 







» 
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LOCTN 


OP 


P/L 


Q 


P6/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




11370 


49 


10294 




09410 




B7 


per A K|4. 1 ? 




11378 


17 


02486 


oooeo 


09420 


HOLL 


BTM 


CFXN , , 10 




11390 


14 


00761 


00067 


09430 




CM 


CHI ,67 , 10 




11402 


46 


11574 


01200 


09440 




BE 


HOLl 




11414 


14 


00761 


00048 


09450 




CM 


CHI ,48, 10 




11426 


46 


11506 


01200 


09460 




BE 


H0L2 




11438 


14 


00761 


00024 


09470 




CM 


CHI ,24 


» 10 


11450 


47 


11290 


01200 


09480 




BNE 


RPFMT 




11462 


32 


08342 


00000 


09490 




SF 


SYM-1 




11474 


26 


1 1041 


08343 


09500 




jp 


RPPRI-fll .SYM 




11486 


26 


11089 


10840 


09510 




xp 


RPPR2-t-ll .TRANS+18 




11498 


49 


10282 




09520 




B7 


FSC AN 




11506 


27 


10868 


10867 


09530 


H0L2 


BT 


WIDTST ,WIDTST-1 




11518 


16 


10845 


65172 


09540 




TFM 


TRANS+23,HTYPE 




11530 


16 


11665 


11686 


09550 




TFM 


HDI 1 1 + 1 1 . Hr ONT 9 




11542 


31 


00760 


00762 


09560 




TR 


CHI— 1 .CHI+l 




11554 


16 


10864 


*1618 


09570 




TFM 


TRNSBR+6, HCONTl 




L1566 


49 


10718 


00000 


09580 




g 


TRAN 




11574 








09590 




DORG 


«-3 




11574 


27 


10868 


10867 


09600 


HOLl 


BT 


WIDTST ,WIDTST-1 




11586 


16 


10845 


95136 


09610 




TFM 






11598 


16 


11665 


*1742 


09620 




TFM 


HOLLl+11 ,HC0NT4+24 




11610 


49 


11554 




09630 




B7 


»-56 




11618 


16 


108 33 


00062 


09640 


HCONTl 


TFM 


TRAN<> + 1 1.7.10 




11630 


32 


08 342 


00000 


09650 




SF 


SYM-1 




11642 


26 


10845 


08343 


09660 




TF 


TRANS+23,SYM 




11654 


16 


10864 


'11666 


09670 


HOLLl 


TFM 


TRNSBR+6 , HC0NT2 




11666 


49 


10718 




09680 




B7 


TRAN 




11674 


31 


00760 


00762 


09690 


HC0NT3 


TR 


CHI-1 ,CHI+1 




11686 


16 


10864 


il718 


09700 


HC0NT2 


TFM 


TRNSBR+6, HC0NT4 




11698 


26 


10845 


00761 


09710 




TF 


TRANS+23,CHI 




11710 


49 


10718 




09720 




B7 


TRAN 




11718 


12 


08343 


oooei 


09730 


HC0NT4 


SM 


SYM ,1,10 




11730 


46 


11674 


01100 


09740 




BP 


HC0NT3 




11742 


16 


10833 


00065 


09750 




TFM 


TRANS+11 ,5, 10 




11 754 


49 


10282 


00000 


09760 




B 


FSCAN 




11761 








09770 




DORG 


«-4 




11771 




00011 




09780 


FMTSP 


DC 


11 ,74900000' 




11772 


31 


00760 


00766 


09790 


IP 


TR 


CHI-1 , CHI +5 




11784 


16 


08092 


00049 


09800 




TFM 


PHI+220,49, 10 




11796 


16 


12435 


00049 


09810 




TFM 


OMMl ,49, 10 




11 808 


15 


05253 


00001 


09820 




TDM 


FSTSW, 1 




11820 


32 


05258 


00000 


09830 




SF 


IFSWCH 




11832 


49 


1 2438 




09840 




B7 


ASCAN+12 




11840 


31 


00000 


12388 


09850 


IFSS 


TR 


OUT ,IFSSRC 




11852 


31 


00760 


00772 


09860 




TR 


CHI-1 ,CHI+11 




11864 


17 


02486 


00060 


09870 




BTM 


CFXN , 


,10 


11 876 


32 


08342 


00000 


09880 




SF 


SYM-1 




11888 


26 


00009 


08343 


09890 




TP 


OUT+9 ,SYM 




11900 


16 


12191 


00024 


09900 




TFM 


THAT+11 ,24 


,10 


11912 


49 


12060 




099 10 




B7 


ELEVEN-12 




11 920 


26 


1 1943 


04586 


09920 


TEN 


TF 


*+23 , PUTETB+6 




11932 


3 1 


07685 


00000 


09930 




TR 


INSTl+7 




11 944 


26 


07684 


15822 


09940 




TP 


INSTl+6 ,TFFAC-4 




11956 


3 1 


07698 


15800 


09950 




TR 


INST2,RVINST 




11 968 


44 


1 1988 


07691 


09960 




BNF 


•+20, INSTl+13 




1 1 98 


49 


12000 




09970 




B7 


•+20 




11988 


27 


01552 


01551 


09980 




BT 


PUTl ,PUT1-1 




12000 


44 


12024 


07692 


09990 




BNF 


•+24, INSTl+14 




120 12 


27 


1572 


01571 


10000 




BT 


PUT? . PIJT2-1 




12024 


3 1 


00000 


1241 2 


100 10 




TR 


OUT ,IFRC+36 




12036 


17 


02134 


000'i2 


10020 




BTM 


PUTX ,12 


, 10 


12048 


3 1 




12376 


10030 




TR 


OUT , I FRC 




12060 


16 


1 21 26 


60005 


10040 




TFM 


KKK+6 ,0UT+5 




12072 


31 


©0760 


00762 


10050 


ELEVEN 


TR 


CHI-1 ,CHI+1 


,2 


12084 


14 


00761 


00069 


10060 




CM 


CHI ,69 


, 10 


12096 


47 


1221 2 


01 100 


10070 




BNH 


NEXTIF 




12108 


17 


02486 


i2120 


10080 




BTM 


CFXN ,*+12 




12120 


26 


00000 


02826 


10090 


KKK 


TP 


,SMCNT-1 




121 32 


11 


1 21 26 


000i2 


10100 




AM 


KKK+6 ,12 


» 10 


12144 


45 


12072 


00763 


10110 




BNR 


ELEVEN ,CHI+2 




12156 


44 


1 2180 


00001 


10120 




BNF 


THAT ,0UT+1 




12168 


12 


12191 


00064 


10130 




SM 


•+23 ,4 


,10 


12180 


17 


02134 


00036 


10140 


THAT 


BTM 


PUTX ,36 


,10 


121 92 


16 


12191 


00036 


10150 




TFM 


•-1 ,36 


,10 


12204 


49 


0097 2 




10160 




B7 


BEGIN 




12212 


31 


00760 


00762 


10170 


NEXTIF 


TR 


CHI-1 ,CHI+1 


,, ROUTINE FOR CONTINUES 


12224 


12 


12191 


000*2 


10180 




SM 


THAT+11 ,12 


,10 


12236 


44 


12280 


00008 


10190 




BNF 


ARIIF ,0UT+8 




12248 


43 


12180 


12125 


10200 




BO 


THAT ,KKK+5 


,, SENSE SWITCH C CHECK 


12260 


15 


00001 


00007 


10210 




TDM 


OUT+1 ,7 




12272 


49 


12144 




10220 




B7 


THAT-36 




12280 


15 


00025 


00006 


10230 


ARIIF 


TDM 


OUT+25 ,6 


,11 , ARITH C ROUTINE 


12292 


44 


12324 


00002 


10240 




BNF 


Ml ,0UT+2 




12304 


44 


12344 


00014 


10250 




BNF 


MOl ,0UT+14 




12316 


49 


12180 




10260 




B7 


THAT 




12324 


31 


00000 


00012 


10270 


Ml 


TR 


OUT , OUT+1 2 




12336 


49 


12356 




10280 




B7 


•+20 





120 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


12344 


31 


00012 


00024 


10290 


MOl 


TR 


12356 


33 


00001 


00000 


10300 




CF 


12368 


49 


12144 




10310 




B7 


12376 


4? 


00000 


01300 


10320 


IFRC 


BL 


12388 


46 


00000 


01200 


10330 


IFSSRC 


BE 


12400 


49 


00000 


01100 


10340 




B 


12412 


17 


07610 


90060 


10350 




BTM 


12424 




00001 




10360 




DC 


12426 


16 


12435 


oooeo 


10370 


ASCAN 


TFM 


12435 




00002 




10380 


OMMl 


DC 


12438 


16 


14707 


ooeoo 


10390 




TFM 


12450 


16 


13484 


68092 


10400 




TFM 


12462 


16 


04586 


67884 


10410 




TFM 


12474 


45 


12718 


00763 


10420 


s 


BNR 


12486 


14 


12435 


00033 


10430 




CM 


12498 


46 


12542 


01200 


10440 




BE 


12510 


14 


12435 


00024 


10450 




CM 


12522 


46 


12558 


01200 


10460 




BE 


12534 


49 


13238 




10470 




B7 


12542 


17 


13738 


00060 


10480 


SSB 


BTM 


12554 


44 


15410 


05252 


10490 




BNF 


12566 


43 


126 34 


07692 


10500 




BD 


12578 


43 


12614 


07712 


10510 




BD 


12590 


44 


12654 


07690 


10520 


EQ2 


BNF 


12602 


44 


12686 


07710 


10530 




BNF 


12614 


33 


05252 


00000 


10540 




CF 


12626 


49 


15410 




10550 




B7 


12634 


43 


125 90 


07712 


10560 




BD 


12646 


49 


12614 




10570 




B7 


12654 


31 


07680 


07685 


1058O 


EQ3 


TR 


12666 


31 


07685 


07705 


10590 




TR 


12678 


49 


15634 




10600 




B7 


12686 


26 


07684 


07689 


10610 


EQ4 


TF 


12698 


26 


07689 


07709 


10620 




TF 


12710 


49 


15622 




10630 




B7 


12718 


14 


00761 


00040 


10640 


SSA 


CM 


12730 


47 


12766 


01100 


10650 




BNH 


12742 


15 


05253 


00000 


10660 




TDM 


12754 


17 


03124 


i2474 


10670 




BTM 


12766 


14 


00761 


00033 


10680 




CM 


12778 


46 


13358 


01200 


10690 




BE 


12790 


33 


05252 


00000 


10700 




CF 


12802 


14 


00761 


000+0 


10710 




CM 


12814 


46 


12990 


01200 


10720 




BE 


12826 


14 


00761 


00020 


10730 




CM 


12838 


46 


12978 


01200 


10740 




BE 


12850 


15 


05253 


00000 


10750 




TDM 


12862 


14 


00761 


00064 


10760 




CM 


12874 


46 


13142 


01200 


10770 




BE 


12886 


14 


00761 


00021 


10780 




CM 


12898 


46 


13286 


01200 


10790 




BE 


12910 


14 


00761 


000i4 


10800 




CM 


12922 


46 


13054 


01200 


10810 




BE 


12934 


14 


00761 


00024 


10820 




CM 


12946 


46 


13110 


01200 


10830 




BE 


12958 


14 


00761 


00063 


10840 




CM 


12970 


49 


12742 




10850 




B7 


12978 


15 


05256 


00005 


10860 


SS4 


TDM 


12990 


43 


13022 


05253 


10870 


SSOOl 


BD 


13002 


15 


05256 


00000 


10880 




TDM 


13014 


49 


13238 




10890 




B7 


13022 


15 


05253 


00000 


10900 




TDM 


13034 


31 


00760 


00762 


10910 




TR 


13046 


49 


12474 




10920 




87 


13054 


14 


00763 


000+4 


10930 


SS3 


CM 


13066 


47 


13286 


01200 


10940 




BNE 


13078 


31 


00760 


00762 


10950 




TR 


13090 


15 


05256 


00005 


10960 




TDM 


13102 


49 


13334 




10970 




B7 


13110 


15 


05253 


00001 


10980 


SS5 


TDM 


13122 


11 


14707 


00061 


10990 




AM 


13134 


49 


13454 




11000 




B7 


13142 


14 


12435 


00024 


11010 


SSC 


CM 


13154 


46 


13690 


01200 


11020 




BE 


13166 


14 


12435 


00024 


11030 




CM 


13178 


46 


13622 


01200 


11040 




BE 


13190 


14 


12435 


00046 


11050 




CM 


13202 


46 


15058 


01200 


11060 




BE 


13214 


14 


12435 


00049 


11070 




CM 


13226 


46 


11920 


01200 


11080 




BE 


13238 


14 


12435 


OOOiO 


11090 


SS 


CM 


13250 


46 


13894 


01200 


11100 




BE 


13262 


14 


12435 


00020 


11110 




CM 


132 74 


46 


14466 


01200 


11120 




BE 


13286 


14 


12435 


00021 


11130 


SSI 


CM 


13298 


46 


14562 


01200 


11140 




BE 


13310 


14 


12435 


000i4 


11150 




CM 


13322 


46 


14542 


01200 


11160 




BE 
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OPERANDS AND REMARKS 

OUT+12 ,0UT+24 

OUT+1 

THAT-36 

, ,1 , OUTPUT RECORDS 

» ,1 
,01100 ,1 



ADCK,FAC 




1 , 


1 


OMMl ,00,10 




2 , 





ACC,,9 




PUT0MH+6,PHI+220 


PUTETB+6,PHI+12 






riMM 1 in 

Urirl 1 i D D f XU 




SSB 








» J. *a A 




SS 




CODE , , 10 




FOF , 


c Wo w 


'<(-i-68 , 


INSTl+14 


*+36 , 


INST2+14 


EQ3 , 




EQ4 , 


INST2+12 


EQSW 




FOF 




EQ2 , 


INST2+14 


»-32 




INSTl+2 , 


INSTl+7 


INSTl+7 , 


INST2+7 


ZOT+12 




INSTl+6 , 


INSTl+11 


INSTl+11 , 


INST2+11 


ZOT 




CHI ,40 , 10 




»+36 




FSTSW 




CSORNjS 




CHI , 


33 


SS6 




EQSW 




CHI , 10 1 10 




SSOOl 




CH I , 20, 10 




SS4 




FSTSW 




CHI ,4,10 




SSC 




CHI ,21,10 




SSI 




CHI . 1 4. 1 




SS3 




CHI ,24,10 




SS5 




CHI ,3,10 




SSA+24 




FLAGSW,5 




«+32 , 


FSTSW 


FLAGSW,0 




SS 




FSTSW, 




CHI-1 ,CHI+1 




S 




CHI+2,14, 10 




SSI 




CHI-1 , 


CHI+1 


FLAGSW,5 




SS2 




FSTSW, 1 




ACC,1,10 




PUTOMG 




OMMl, 24, 10 




SSCA 




OMMl ,-24, 10 


SSCB 




OMMl ,46 ,10 




CFCT 




OMMl ,49,10 




TEN 




OMMl, 10, 10 




CADD 




OMMl ,20,10 




CSUB 




OMMl ,21, 10 




CDIV 




OMMl, 14, 10 




CMULT 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


1 3334 


14 


1 2435 


000*4 


11170 


1 3346 


46 


14686 


01200 


11180 


13358 


15 


05253 


00001 


11190 


13370 


16 


07679 


00026 


11200 


13382 


26 


13417 


04586 


11210 


13394 


12 


13417 


00069 


11220 


1 3406 


31 


07680 


00000 


11230 


13418 


15 


07690 


00000 


11240 


13430 


44 


1 3454 


07686 


11250 


1 3442 


44 


13554 


07688 


11260 


1 3454 


43 


1 3522 


05256 


11270 


1 3466 


11 


1 3484 


90002 


11280 


1 3478 


26 


00000 


0076 1 


11290 








UU f o i 


1 1 300 


1 3502 


3 1 


00760 


00762 


11310 




49 


1 2474 




11320 




DC 


UU f o 1 


UUUUU 


1 1 330 


13534 


1 5 


05256 


00000 


11340 


1 3546 


49 


13466 




11350 


1 3554 


16 


07689 


60060 


11360 


13566 


27 


01552 


01551 


11370 


13578 


26 


13608 


13417 
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1 55 70 


ENDP 


BNR 


»+20 


, IMAGE 




10644 


49 


10664 




15580 




B7 


»+20 






10652 


27 


10458 


10457 


15590 




BT 


IMOUT 


, IMOUT-1 




10664 


14 


09900 


Q79 14 


1 5600 




r M 


DBUF+6 


,RHO 




10676 


46 


10712 


01200 


15610 




BE 


UPDKM 






10688 


3 1 


09909 


08211 


15620 




TR 


DBUF+6 


,PHI+339 


. A 


10700 


1 7 


05332 


A7Q 1 ^ 


1 5630 




BTM 


LSTC 


,RH0+1 




1 07 12 


16 


07548 




1 5 640 


U r UlS ™i 


T CM 


NSPC+8 


, CEXEC 




1 n79A. 






r\7 c;/. r* 


X 3o:>U 




o n 

D U 


NOSPCE+12 


,NSPC 




X\J 1 jO 


1 o 


^^^ 9Ci7 
U!? ^ J f 


an7 


1 *^ AAA 




T CM 


LSTT-1 ,OVERL 




i U f *T o 


26 


nn7A 1 

U U 1 O 1 




1 A7n 
X Do 1 u 




TC 


CHI, AVOID 






1 U ( o U 




075 1 8 


1044 


1 5680 




BNF 


NOSPCE+36 


,SKPPCH 




i u / 1 ^ 


-? 


1 no Q A 


0040 1 


1 AO n 




T n 
1 U 


DCFDT 


,401 




10784 


34 


1098 4 


0070 1 


15700 




1^ 


DCFDT 


,701 




1 0796 


26 


05268 


C\T7 1 Q 

U f 1 1 7 


1 R 7 1 n 

X ^ ( X u 




T C 

1 r 


SYMBSB 


,DCF+5 




10808 


26 


08 919 


077 1 9 


1 5720 




J p 


DSADO 


,DCF+5 




10820 


22 


08919 


07037 


15730 






DSADO 


,LMAX 




10832 


32 


08917 


nnnnn 

Kl \J\J\J\J 


1 5740 




S F 


DSADO-2 






1 0844 


15 


05132 


00009 


15750 




TDM 


ROCK+22 


,9 




10856 


36 


10984 


00702 


15760 




RN 


DCFDT 


,702 




10868 


17 


05 110 


i0856 


15770 




BTM 


ROCK 


,*-12 




10880 


26 


10910 


00585 


15780 




TF 


»+30 


,585 




1 0892 


11 


109 10 


00061 


15790 




AM 


»+18 


,1 


, 10 


10904 


26 


00000 


05269 


15800 




TP 




,SYMBSB+1 




1 09 16 


1 2 


10910 


OOOiS 


15810 




SM 


»-6 


,18 


.10 

, X w 


10928 


26 


10916 


08919 


1 5820 




TP 


»-18 


, DSADO 


1 6 


1 0940 


15 


051 32 


00009 


15830 




TOM 


ROCK+22 


,9 




10952 


38 


10984 


00702 


1 5840 




WN 


DCFDT 


,702 




10964 


1 7 


05 1 10 


•10952 


15850 




BTM 


ROCK 


,*-12 




10976 


49 


07642 


nnnnn 


1 5860 




B 


CEXEC 






10984 








1 5870 




□ORG 


»-3 






1 0984 




00001 




15880 


DCFDT 


DC 


1 


,0 




10997 




000 1 3 




1 5890 




DC 


13 


,7980404000500 










1 5900 


« 


















1 59 10 
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1 59 30 


«■ 










Q0404 








1 5940 




DORG 


404 






00404 


2 5 


02696 


00400 


1 5950 




TD 


CZl + 2 


,400 




004 16 


25 


27 20 


00400 


15960 




TD 


CZ2+2 


,400 




0042 8 


25 


03016 


00400 


1 59 70 




TD 


CZ3+2 


,400 




00440 


25 


30 28 


00 400 


1 5980 




TD 


CZ4+2 


,400 




00452 


25 


02046 




1 R QQ A 




TD 


DCFSG,401 






00464 


25 


065 17 


0040 1 


16000 




TD 


DCFER-5 ,401 




004 76 


2 5 


02030 


UU tU i 


1 An 1 n 

X OU X u 




TD 


CALL+44,401 




00488 


26 


1067 


00 185 


16020 




TF 


PRBS 


,185 




00500 


49 


18000 


00000 


160 30 




B 


18000 






00550 








16040 




DORG 


550 






00550 


36 


00044 


00703 


160 50 


TI6EX 


RN 


44 


,703 




00562 


49 


00710 




16060 




B7 


ROWCK 






00570 


26 


00700 


00023 


160 70 




TF 


BSEGA 


,23 




00582 


16 


00820 


65036 


16080 




TFM 


ROWBR+6 


,SKDK 




00594 


3 1 


00000 


006 1 4 


16090 




TR 




, INCHI 




00606 


49 


0000 




16100 




B7 








006 14 


26 


6040 5 


0006 1 


16110 


INCHI 


TF 


INOUT 


,61 


,2 


00626 


1 1 


00006 


00062 


16120 




AM 


6 


,2 


,10 


0063 8 


14 


nnon A 


60693 


X O X -^U 




CM 


6 


, INOUT+288 




00650 


47 




01300 


16140 




BL 








00662 


49 


0-?6 50 


nnnnn 


16150 




B 


7650, ,03 






006 75 




0000 2 




161 60 




DC 


2 






00404 








1 A 1 7o 

X O X ( u 




DORG 


404 






0040 5 




00 146 


XZ 


161 80 


INOUT 


DAS 


146 






007 00 




00005 




16190 


BSEGA 


DS 


5 






00709 




00009 




1 6200 


DIVDIG 


DC 


9 


,011223344 




007 10 


47 


005 70 


1900 


16210 


ROWCK 


BNI 


TIGEX+20 


,1900 




0072 2 


43 


00766 


00299 


16220 




BD 


ROWCKl 


,299 




00734 


39 


00749 


00100 


1 6230 




WATY 


HDER 






00746 


48 


00000 


00000 


16240 




H 








00749 




00005 


X2 


16250 


HDER 


DAC 


5 


,HDER« 




0075 8 


49 


01954 




1 6260 




B7 


TIGER 






00766 


25 


00732 


00733 


16270 


ROWCKl 


TD 


ROWCK+22 


,R0WCK+23 


,11 


00778 


46 


00790 


00600 


16280 




BI 


*+12 


,600 




00790 


46 


00802 


01600 


16290 




BI 


♦+12 


, 1600 




00802 


46 


00814 


01700 


16300 




BI 


»+12 


,1700 




00814 


49 


00000 




16310 


ROWBR 


87 








00830 




00010 




16320 




DS 


10 






00832 


26 


00891 


00831 


16330 


FSB 


TF 


FAD-1 


, *— 1 




00844 


32 


00891 


00000 


16340 




SF 


FAD-1 






00855 




00000 




163 50 


BSTBG 


DS 




,* 





SUBTRACT 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 






00856 


44 


00892 


00831 


16360 




BNF 


FAD 


, FSB-1 




REVERSE SIGN 


00868 


33 


00891 


00000 


163 70 




CF 


FAD-1 








00879 




00000 




16380 


COMBEG 


DS 




, * 






00880 


41 


00000 


00000 


16390 




NOP 










00892 


16 


06570 


60891 


16400 


FAD 


TFM 


RT+6 


,*-l 






00904 


49 


06532 




16410 




B7 


TVAR 








00912 


15 


01127 


00005 


16420 




TDM 


ADCT2-36 


,5 






00924 


16 


01314 


e0061 


16430 




TFM 


FAD3+30 


, FAC+1 






00936 


24 


00052 


00883 


16440 




c 


FAC-8 


, FAD-9 






00948 


46 


01164 


01200 


16450 




BE 


FADl-36 








00960 


46 


01008 


01300 


16460 




BNL 


»+48 








00972 


26 


00831 


00060 


16470 




T F 


FSB-1 


, F AC 




LARGER OPERAND TO FAC 


00984 


26 


00060 


00891 


16480 




TF 


FAC 


, FAD-1 






00996 


26 


00891 


00831 


16490 




TF 


FAD-1 


, FSB-1 






01008 


22 


00883 


00052 


16500 




s 


F AD-9 


J FAC-8 




COMPUTE RIGHT SHIFT 


01020 


14 


00883 


00096 


16510 




CM 


FAD-9 


, 8 


,1011 




01032 


47 


01488 


01300 


16520 




BL 


ENDD 






EXIT ON SHIFT OVER 8 


01044 


26 


01211 


01163 


16530 




TF 


FADl+1 1 


, ADCT2 






01056 


32 


01207 


00000 


16540 




S F 


FADl+7 








01067 




00000 




16550 


PRBS 


DS 










01068 


21 


01211 


00883 


16560 




/\ 


FADl+1 1 


^ FAD-9 






01080 


28 


00891 


00891 


16570 




LD 


F AD— 1 


, FAD- 1 






01092 


44 


01116 


00099 


165 80 




BNF 


»+24 


, 99 






01104 


32 


0121-i 


00000 


16590 




S F 


FADl+1 1 




» '-' 




Oil 16 


15 


00061 


00005 


16600 




TDM 


FAC+1 


, 5 






01128 


28 


00060 


00060 


16610 




LD 


FAC 


,FAC 






01140 


44 


01164 


00099 


16620 




BNF 


»+24 


,99 






01152 


32 


00061 


00892 


16630 




SF 


FAC+1 


,FAD 


,5 




01163 




00000 




16640 


ADCT2 


DS 




,* 






01164 


26 


00831 


00052 


16650 




TF 


FSB-1 


, FAC-8 




SAVE EXPONENT AND 


01176 


16 


00052 


oooeo 


16660 




TFM 


FAC-8 


,0 


,10, 


EXPAND FIELDS 


01188 


15 


00883 


00006 


16670 




TDM 


FAD-9 


,0 


,11 




01200 


21 


e0060 


60891 


16680 


FADl 


A 


FAC 


, FAD-1 


,27, 


ADD WITH SHIFT 


01212 


25 


00099 


01206 


16690 




TD 


99 


,FADl+6 


, 1 1 




01224 


14 


00060 


00060 


16700 




CM 


FAC 




,10 




01236 


26 


01211 


01271 


16710 




TF 


FADl+1 1 


, ADCTl 






01248 


46 


01376 


01200 


16720 




BE 


ZERFAC 








01260 


33 


00060 


00891 


16730 




CF 


FAC 


, FAD-1 


, 5 




01271 




00000 




16740 


ADCTl 


DS 




, * 






01272 


46 


01284 


01400 


16750 




BV 


»+12 








01284 


43 


01396 


00052 


16760 


FAD3 


BD 


FAD2 


, FAC-8 




BRANCH FOR CARRY 


01296 


43 


01440 


00053 


16770 




BD 


ENDD-48 


, FAC-7 




NORMALIZING LOOP 


01308 


31 


00061 


01354 


16780 




TR 


FAC+1 


,FILL 






01320 


31 


00053 


00054 


16790 




TR 


FAC-7 


,FAC-6 






01332 


12 


00831 


00061 


16800 




SM 


FSB-1 


, 1 


,10, 


CORRECT EXPONENT 


01344 


46 


01296 


01300 


16810 




BNN 


»-48 






TEST FOR UNDERFLOW 


01355 




00001 




16820 




DC 


1 








01354 




00000 




16830 


FILL 


DS 




,*-l 


,FILL 


DIGIT MAY BE CHANGED 


01356 


16 


03285 


65148 


16840 


ERO 


TFM 


ERMA 


,UNFLM-1 






01368 


49 


06588 




16850 




87 


ERR 








01376 


26 


00060 


01868 


16860 


ZERFAC 


TF 


FAC 


,FZEREC-9 




ZERO RESULT 


01388 


49 


1488 




16870 




B7 


ENDD 








01396 


11 


00060 


00065 


16880 


FAD2 


AM 


FAC 


,5 


,10, 


ROUND 


01408 


26 


0006 


00059 


16890 




TF 


FAC 


,FAC-1 




SHIFT FOR CARRY 


01420 


1 1 


0083 1 


00061 . 


16900 




AM 


FSB-1 


, 1 


, 10 




01432 


49 


1284 




16910 




B7 


FAD3 








01440 


26 


0005 2 


00831 


16920 




TF 


FAC-8 


, FSB-1 






01452 


46 


06588 


01400 


16930 




BV 


ERR 








01464 


44 


01488 


00099 


16940 




BNF 


*+24 


,99 






01476 


32 


00060 


00000 


16950 




SF 


FAC 








01488 


49 


01496 




16960 


ENDD 


B7 


*+8 








01496 


42 


00000 


00000 


16970 


BB 


BB 


















16980 






















16990 






















17000 




FIXED POINT 


ARITHMETIC 














17010 














01508 


16 


06570 


61507 


17020 


FXS 


TFM 


RT + 6 


,*-l 






01520 


49 


06532 




17030 




B7 


TVAR 








01528 


22 


00060 


01507 


17040 




S 


FAC 


,FXS-1 






01540 


49 


01488 


00000 


17050 




B 


ENDD 








01556 




00005 




17060 




DS 


5 








01558 


16 


06570 


61557 


17070 


FXA 


TFM 


RT+6 


,*-l 






01570 


49 


06532 




17080 




B7 


TVAR 








01578 


21 


00060 


01557 


17090 




A 


FAC 


,FXA-1 






01590 


49 


01488 


00000 


17100 




B 


ENDD 








01606 




00005 




17110 




DS 


5 








01608 


16 


06570 


61607 


17120 


FXM 


TFM 


RT+6 


,*-l 






01620 


49 


06532 




17130 




B7 


TVAR 








01628 


23 


00060 


01607 


17140 




M 


FAC 


,FXM-1 






01640 


32 


00090 


00000 


17150 




SF 


90 








01652 


26 


00060 


00099 


17160 




TF 


FAC, 99 








01664 


49 


01488 


00000 


17170 




B 


ENDD 








01680 




00005 




17180 




DS 


5 








01682 


26 


01717 


00060 


17190 


FXDR 


TF 


FXD-1 ,FAC 








01694 


26 


00060 


01681 


17200 




TF 


FAC,*-13 








01706 


41 


00000 


00000 


17210 




NOP 










01718 


16 


06570 


61717 


17220 


FXD 


TFM 


RT + 6 


,*-l 






01730 


49 


06532 




17230 




B7 


TVAR 









-1 OQ 



* C4D-PDQ COMPILER + SUBROUTINES 



1/20/67 



JANUARY 20, 1967 



PAGE 21 



LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


nPFRAND*; AND RFMARK<s 


01738 


14 


01717 


00060 


1 7240 




CM 


FXD— 1 . .10 


01750 


46 


06588 


01200 


17250 




BE 


ERR 


01762 


28 


00099 


00060 


17260 




LD 


99, FAC 


01774 


29 


00090 


01717 


1 7? 7n 

L 1 e. 1 U 




D 


90 ,FXD-1 


01786 


26 


00060 


00089 


1 7280 




TF 


FAC ,89 


01798 


49 


14€8 




1 75Qr) 

1 1 C.7\J 




B7 


ENDD , ,5 










J. f OKJU 
















17310 
















1 1 OC.V 




NEGATION ROUTINE 










1 7330 








01806 


44 


01476 


00060 


17340 


RVSGN 


BNF 


ENDD-12,FAC 


01818 


33 


00060 


oonnn 


1 7350 




CF 


FAC 


01830 


49 


01488 


00000 


1 7360 




B 


ENDD 


01837 








17370 




DORG 


*-4 










17380 
















17390 
















17400 




SYMBOLS AND CONSTANTS 










1 7410 








00060 




00000 




1 7420 


FAC 


n c 


,60 


01 846 




000 10 




1 7430 


FLTONE 




i. U ,P 1 1 OUUUOUU 


01858 




000 1 2 




1 7440 




DC 


12 ,999999999999 


01 877 




000 19 




1 7450 


F ZEREC 


DC 


19, • 


01888 




0001 1 




17460 


LQGIO 


DC 


11 ,2302585093 


01902 




000 14 




17470 


ONE 


DC 


14,10000000000000 


01907 




00005 




17480 




DC 


5,99995 


01910 




00003 




17490 




DC 


3 ,0 


01916 




00006 




17500 




DC 


6,999500 


01918 




00002 




17510 




DC 


2,0 


01925 




00007 




1 7520 




DC 


7,9950331 


01 926 




00001 




1 7530 




DC 


1,0 


01934 




00008 




1 7540 


LOGl 1 


DC 


8,95310180 


01 943 




00009 




1 7550 


L0G2 


DC 


9,693147181 


01953 




000 10 




1 7560 


FIXER 


DC 


10,5810000000 


1 954 


16 


02028 


^2994 


1 75 70 


T I GER 


TFM 


CALL+42 ,12994 ,711, NORMAL 


01966 


31 


00000 


01986 


17580 




TR 


,CALL 


01978 


49 


00000 




17590 




B7 




01986 


34 


00044 


00701 


1 7600 


CALL 


K 


44 ,701 


01998 


32 


00000 


00000 


17610 




SF 




02010 


36 


00044 


00702 


1 7620 




RN 


44 ,702 


02022 


49 


1 2999 


00000 


17630 


LNKFLG 


B 


12999 , ,6 


02030 








1 7640 




DORG 


*-3 


02045 




000 16 




1 7650 


ABNDCF 


DC 


16 ,79804125005000' 


02046 




0000 1 




1 7660 


DCFSG 


DC 


1 ,0 


02059 




000 13 




17670 




DC 


13 ,20000000 










17680 
















17690 
















17700 




EXPONENTIATION ROUTINES 










17710 








02069 




00010 




17720 




DS 


10 


02070 


26 


021 29 


02069 


17730 


FAX IN 


TF 


FAXI-1 ,*-l 


02082 


32 


02129 


nnnof) 


1 7740 




SF 


FAXI-1 


02 094 


44 


021 18 


02069 


17750 




BNF 


«+24 ,FAXIN-1 


02106 


33 


02129 


finnnn 


1 7760 




CF 


FAXI-1 


U ^ J. i. o 


^ L 


u uu uu 


uuuuu 


1 777n 




NOP 




021 30 


16 


065 70 


621 29 


17780 


FAX I 


TFM 


RT+6 ,*-l 


02142 


49 


06532 




17790 




B7 


TVAR 


02150 


14 


02129 


00060 


1 7800 




CM 


FAXI-1 , ,10 


021 62 


46 


03034 


01200 


17810 




BE 


SETONE 


021 74 


46 


02494 


01100 


17820 




BP 


FAXIl 


021 86 


33 


021 29 


00000 


17830 




CF 


FAXI-1 


021 98 


16 


01494 


02494 


17840 




TFM 


ENDD+6 , FAXIl 


022 10 


2b 


02233 


01846 


17850 




TF 


FDVR-1 , FLTONE 


02222 


41 


00000 


00000 


17860 




NOP 












17870 
















17880 


« 














1 7890 




FLOATING DIVIDE AND REVERSE DIVIDE 










17900 








02234 


26 


02269 


00060 


179 10 


FDVR 


TF 


FDV-1,FAC,, INTERCHANGE OPERANDS 


02246 


26 


00060 


02233 


17920 




TF 


FAC , FDVR-1 


02258 


41 


00000 


00000 


17930 




NOP 




02270 


16 


06570 


62269 


17940 


FDV 


TFM 


RT+6 ,*-l 


02282 


49 


06532 




1 7950 




87 


TVAR 


02290 


32 


00053 


00000 


17960 




SF 


FAC-7 


02302 


25 


02369 


02262 


17970 




TD 


DVRND+11 ,FDV-8,,R0UNDING 


02314 


28 


00091 


00060 


17980 




LD 


91 , FAC 


02326 


43 


02346 


02262 


17990 




BD 


DVRND-12 ,FDV-8 


02338 


49 


06588 




18000 




B7 


ERR 


02346 


32 


02262 


00000 


18010 




SF 


FDV-8 


02358 


25 


0009 2 


00700 


18020 


OVRND 


TD 


92 ,0IVDIG-9 


02370 


29 


00091 


02269 


1 8030 




D 


91,FDV-1,, DIVIDE 


02382 


46 


01376 


1 200 


18040 




BE 


ZERFAC 


02394 


25 


00099 


00091 


18050 




TD 


99,91,, SAVE SIGN 


02406 


22 


00052 


02261 


18060 




S 


FAC-8,FDV-9,, SUBTRACT EXPONENTS 


02418 


43 


02462 


00083 


18070 




BD 


FDVl, 83 


02430 


32 


0008 4 


00000 


18080 




SF 


84,,, LEADING ZERO 


02442 


16 


02753 


00050 


18090 




TFM 


FMP-9,50,10,SET EXP ADJUST 


02454 


49 


02934 




18100 




B7 


FMP2-12 


02462 


26 


00060 


00090 


18110 


FDVl 


TF 


FAC, 90,, NON-ZERO LEADING DIGIT 



\2:) 
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LGCTN OP 



P/L 



02474 16 02753 00051 
02486 49 02946 



02494 26 
02506 16 
02518 12 
02530 46 
02542 16 
02554 42 
02566 
02578 
02590 44 
02602 33 
02614 41 
02626 
02638 
02646 
02658 
02670 
02682 
02694 
02706 
02718 49 
02726 26 
02738 16 
02750 41 



26 
32 



16 
49 
11 
46 
11 
46 
26 
16 



02761 

01494 

02129 

02762 

01494 

00000 

02625 

02625 

02614 

02625 

00000 

06570 

06532 

02625 

03034 

00060 

01376 

19929 

01494 

19930 

02761 

01494 

00000 



00060 
62518 

oooei 

01100 
ei496 
00000 
02565 
00000 
02565 
00000 
00000 
02625 

00060 
01200 
00060 
01200 
00060 
62726 

02625 
63002 
00000 



02762 


1 6 




6276 1 


02 774 


49 


065 32 




02 782 




0005 3 


ouooo 


02794 


32 




A A A r\ r\ 
UUU UU 


02 806 


23 




n "5 7 A 1 


02 818 


46 




1200 


02830 


43 


U ^ T 1 u 


n n A Q A 
UUUo 




i. 1 




60005 


02854 


43 


02922 


00084 


02866 


32 


00085 


00000 


02 878 


1 2 


A A A c; o 


00051 


02890 


26 


00060 


00092 


02902 


49 


02946 




02 910 


1 1 
1 1 


AAAQ O 


60005 




1 2 


0005 2 


00050 




26 


00060 


00091 


2 94 6 


46 


0295 8 


01400 


02958 




A A A 


02753 


02970 


33 


00053 


00000 


02982 


46 


01452 


01300 


02994 


49 


01356 




03002 


16 


01494 


61496 


03014 


26 


19949 


00060 


03026 


49 


19950 




03034 


26 


00060 


01846 


03046 


49 


01468 




03054 


14 


00052 


00058 


03066 


45 


03086 


00060 


03078 


49 


065 76 




03086 


46 


06588 


01100 


03098 


47 


03130 


01200 


03110 


16 


00052 


00060 


03122 


49 


01488 




03130 


26 


00891 


01953 


03142 


15 


01127 


00000 


03154 


16 


01494 


63198 


03166 


44 


00924 


00060 


03178 


32 


00891 


00000 


03190 


49 


00924 




03198 


16 


01494 


61496 


03210 


12 


00053 


00581 


03222 


49 


01468 




03230 


45 


03250 


00060 


03242 


49 


06576 




03250 


16 


00831 


00060 


03262 


28 


00062 


00060 


03274 


33 


00053 


65680 



TFM 


FMP-9, 


51,10, SET EXP ADJUST 


B7 


FMP2,, 


, GO TO TEST ANO END 


TF 


FMP-1, 


FAC 


TFM 


ENDD+6 


,*+12,,SET RETURN ADDRESS 


SM, 


FAXI-1 


,1,10 


BP 


FMP 




TFM 


ENDD+6 


, BB,, RESTORE COMMON EXIT 


BB 






TF 


FAXB-1 


,*-l 


SF 


FAXB-1 




BNF 


»+24 


,FAXBN-1 


CF 


FAXB-1 




NOP 






TFM 


RT+6 


,*-l 


B7 


TVAR 




AM 


FAXB-1 


, , 10 


BE 


SETONE 




AM 


FAC 


, ,10 


BE 


ZERFAC 




TF 


LTAB-1 


,FAC 


TFM 


ENDD+6 


r*+20,,SET RETURN ADDRESS 


B7 


LTAB 




TF 


FMP-1, FAXB-1 


TFM 


ENDD+6 


FAXB1,,SET RETURN ADDRESS 


NOP 







FLOATING MULTIPLY 



PG/LN LABEL MNEM OPERANDS AND REMARKS 



18120 

18130 

18140 ♦ 

18150 * 

18160 FAXIl 

18170 

18180 

18190 

18200 

18210 

18220 FAXBN 

18230 

18240 

18250 

18260 

18270 FAXB 

18280 

18290 

18300 

18310 

18320 

18330 CZl 
18340 

18350 CZ2 

18360 

18370 

18380 

18390 » 

18400 « 

18410 « 

18420 * 

18430 FMP 

18440 

18450 

18460 

18470 

18480 

18490 

18500 

18510 

18520 

18530 

18540 

18550 

18560 FMPl 

18570 

18580 

18590 FMP2 

18600 

18610 

18620 

18630 

18640 » 

18650 » 

18660 FAXBl 

18670 CZ3 

18680 CZ4 

18690 SETONE 

18700 

18710 » 

18720 » 

18730 » 

18740 * 

18750 FIX 

18760 

18770 

18780 

18790 

18800 

18810 

18820 FIX3 

18830 

18840 

18850 

18860 

18870 

18880 

18890 

18900 

18910 * 

18920 * 

18930 * 

18940 » 

18950 FLOAT 

18960 

18970 

18980 

18990 



TFM 


RT+6 , 


*-l 


B7 


TVAR 




SF 


FAC-7 




SF 


FMP-8 




M 


FAC, FMP-1 , , 


MULTIPLY 


BE 


ZERFAC 




BD 


FMPl, 84,, 


TEST LEADING DIGIT 


AM 


93,5,, 


ROUND PRODUCT 


BD 


FMPl+12,84, 


, BRANCH IF CARRY 


SF 


85 




SM 


FAC-8,51, 10 


, ADJUST EXPONENT 


TF 


FAC, 92 




B7 


FMP2 




AM 


92,5,, 


ROUND PRODUCT 


SM 


FAC-8,50, 10 


, ADJUST EXPONENT 


TF 


FAC, 91 




BV 


*+12 




A 


FAC-8 , 


FMP-9 


CF 


FAC-7 




BNN 


ENDD-36 




B7 


ERO 




TFM 


ENDD+6, BB, 


, RESTORE COMMON EXIT 


TF 


ETAB-1 , 


FAC 


B7 


ETAB 




TF 


FACFLTONE 




87 


ENDD , 


,5 



FIX A FLOATING POINT NUMBER 



CM 


FAC-8 


,58 


.10 


BNR 


»+20 


,FAC 




B7 


UDV 






BH 


ERR 






BNE 


FIX3 






TFM 


FAC-8, 


00, 10 




B7 


ENDD 






TF 


FAD-1 


, FIXER 




TDM 


ADCT2- 


36 ,0 




TFM 


ENDD+6 


,*+44, ,SET 


RETURN ADDRESS 


BNF 


FAD+32 


,FAC 




SF 


FAD-1 






B7 


FAD+32 






TFM 


ENDD+6 


, BB,, RESTORE COMMON EXIT 


SM 


FAC-7 


,581 


,9 


B7 


ENDD 


, 


,5 


FLOAT A 


FIXED POINT 


NUMBER 


BNR 


»+20 


,FAC 




B7 


UDV 






TFM 


FSB-1 


,60 


,10 


LD 


FAC+2 


,FAC 




CF 


FAC-7 


,0FLM-1 


,7 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 




032 85 




00000 




19000 


ERMA 


OS 




,* 




03286 


16 


00052 


oooeo 


19010 




TFM 


FAC-8 


f 


»10 


03298 


16 


01314 


60063 


19020 




TFM 


FAD3+30 


,FAC+3 




03310 


14 


00062 


oooeo 


19030 




CM 


FAC+2,,10 






03322 


49 


01248 


00000 


19040 




B 


FADl+48 














19050 


» TRACE SUBROUTINE 






03334 


16 


035 18 


91 506 


19060 


TRFX 


TFM 


TRFMT+5 


,91500 


,711 


03346 


26 


03369 


03333 


19070 




TF 


TRFL-1 


, TRFX-1 




03358 


49 


03382 


00000 


19080 




B 


TRFL+12 






03370 


16 


035 18 


51506 


19090 


TRFL 


TFM 


TRFMT+5 


,51508 


,711 


r\ "5 o o o 


26 


03369 


00060 


1 9 100 




TF 


TRFL-I 


, FAC 


,6 


03394 


47 


03404 


00442 


191 10 




BNI 


»+10 


,442 




03406 


44 


03478 


04158 


19120 




BNF 


TRl 


,TRCX 




03418 


26 


04 15 8 


04030 


19130 




TF 


TRCX 


, STFMT 




03430 


26 


04475 


03551 


19140 




TF 


TYP 


,TRFM+9 




03442 


47 


03466 


00200 


19150 




BNC2 


*+24 






03454 


15 


04475 


00009 


19160 




TDM 


TYP 


,9 


,11 


03466 


16 


04424 


60405 


19170 




TFM 


NEXT 


, INOUT 




03478 


16 


04121 


63369 


19180 


TRl 


TFM 


LOOK-1 


, TRFL-1 


,711 


03490 


31 


04761 


04233 


19190 




TR 


RTPARX 


,RSST+7 




03502 


49 


04122 


00000 


19200 




B 


LOOK 






03509 








19210 




DORG 


«-4 






03513 




00005 


64784 


19220 


TRFMT 


DSA 


LTPAR 






03518 




00005 




19230 




DC 


5 


,-90500 




03523 




00005 




19240 




DC 


5 


,-90500 




03528 




00005 


64226 


19250 




DSA 


RSST 






03530 




00002 




19260 




DC 


2 


,3 




03535 




00005 


63513 


19270 




DSA 


TRFMT 


,RTPAR 




03 540 




00005 


64728 














03 542 


39 


00405 


00400 


19280 


TRFM 


WACD 


INOUT 


, 


,0 


03 552 








19290 




DORG 


»-l 






03554 




0000 3 




19300 


OTSV 


DC 


3 


, 137 




03 555 




00005 


00405 


19310 




DSSA 


INOUT 






03560 




00004 




19320 




DSC 


4 


,4 ' 




03569 




00006 




19330 


P INS 


DS 


6 






03570 


i6 


03285 


65374 


19340 


ERIN 


TFM 


ERMA 


, INVAR-1 


,07 


03582 


49 


06588 


00000 


19350 




B 


ERR 






03594 


44 


03626 


03592 


19360 


DTRB 


BNF 


STOPSR 


, DTRB-2 




03606 


16 


075 97 


65720 


19370 




TFM 


ESMA 


, ENDM 




036 18 


49 


06588 




19380 




B7 


ERR 






03626 


44 


03658 


03590 


19390 


STOPSR 


BNF 


PAUSS 


,DTRB-4 




03638 


16 


07597 


65146 


19400 




TFM 


ESMA 


,STM 




03650 


49 


06588 




19410 




B7 


ERR 






03658 


47 


01954 


00300 


19420 


PAUSS 


BNC3 


TIGER 






03670 


48 


00000 


00000 


19430 




H 








03673 




00005 


X2 


19440 


UDVM 


DAC 


5,UNDV ' ,* 


-8 




03682 


42 


00000 


00000 


19450 




BB 








03690 








19460 




DORG 


»-3 






03690 


45 


037 10 


03689 


19470 


IXCK 


BNR 


»+20,IXCK 


-1,11 




03702 


49 


06576 




19480 




B7 


UDV 






03710 


14 


03689 


oooeo 


19490 




CM 


IXCK-1 , ,610 




03722 


46 


01496 


01100 


19500 




BH 


BB 






03734 


16 


03285 


65690 


19510 


IXERR 


TFM 


ERMA 


, IXERM-1 




03746 


49 


06588 


00000 


19520 




B 


ERR 






03758 


24 


0368^ 


03757 


19530 


IXMX 


C 


IXCK-1 


,IXMX-1 , 


r6 


03770 


46 


03734 


01100 


19540 




BH 


IXERR 






03782 


42 


00000 


00000 


19550 




BB 








03790 








19560 




DORG 


»-3 














19570 




















19580 




















19590 


» 






IN/OUT SI 










19600 












03790 


i5 


03562 


00005 


19610 


RACD 


TDM 


OTSV+8 


,5 


,0 


03802 


26 


03569 


03790 


19620 




TF 


PINS 


,RACD 




038 14 


33 


040 18 


00000 


19630 




CF 


LTX 






03825 




00000 




19640 


BOX 


DS 








03826 


16 


03554 


00237 


19650 




TFM 


OTSV 


^237 


,9 


03838 


49 


04030 


00000 


19660 




B 


STFMT 






03850 


*6 


03554 


00241 


19670 


RERD 


TFM 


OTSV 


,241 


,09 


03862 


26 


03569 


03850 


19680 




TF 


PINS 


,RERD 




03 874 


49 


04030 


00000 


19690 




B 


STFMT 






03886 


i5 


03562 


0000+ 


19700 


WATYE 


TOM 


OTSV+8 


,1 


,011 


03898 


26 


03569 


03886 


197 10 




T F 


PINS 


, WATYE 




03910 


49 


04006 


00000 


19720 




B 


STFMT-24 






03922 


i5 


03562 


OOOOi 


19730 


PRTR 


TDM 


OTSV+8 


,1 


,011 


03934 


26 


03569 


03922 


19740 




TF 


PINS 


,PRTR 




03946 


47 


03970 


00200 


19750 




BNC2 


» + 24 






03958 


15 


03562 


00009 


19760 




TOM 


OTSV+8 


,9 


,11 


03970 


49 


04006 


00000 


19770 




B 


STFMT-24 






03982 


■15 


03562 


00004 


19780 


WACO 


TDM 


OTSV+8 


,4 


,0 


03 994 


26 


03569 


03982 


19790 




TF 


PINS 


,WACD 




04006 


16 


03554 


OUOsV 


19800 




TFM 


OTSV 


,39 


,10 


04018 


32 


04018 


63508 


19810 


LTX 


SF 


LTX 


,TRFMT-5 


,7 


04030 


16 


04564 


64054 


19820 


STFMT 


TFM 


CMPLT+6 


,*+24 




04042 


44 


04382 


04158 


19830 




BNF 


SLASH+12 


,TRCX 




04054 


71 


04762 


04018 


19840 




MF 


LTPARX 


,LTX 




04066 


26 


04475 


03562 


19850 




TF 


TYP 


, OTSV+8 




04078 


26 


04158 


03569 


19860 




TF 


TRCX 


,PINS 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




04090 


16 


04424 


60405 


19870 




TFM 


NEXT 


, INOUT 




04102 


16 


04761 


00900 


19880 




TFM 


RTPARX 


» 


,9 


04114 


42 


00000 


00000 


19890 




BB 








04122 








19900 




DORG 


«-3 














19910 


» ROUTINE THAT DECIPHERS FORMAT 


SPECIF 


04122 


16 


04564 


64646 


19920 


LOOK 


TFM 


CMPLT+6 


,POST 




04134 


11 


04157 


60005 


19930 




AM 


«+23,5 






04146 


26 


045 76 


00000 


19940 




TF 


BRNCH+6 






04157 




00000 




19950 


PINFMT 


DS 


,* 






04158 


i6 


04615 


00034 


19960 


TRCX 


TFM 


STOWX 


,34 


,0101 


04170 


44 


04570 


04576 


19970 




BNF 


BRNCH, BRNCH+6 












19980 


• IF NO FLAG, NUMERIC SPEC. OTHER 


W I SE 


04182 


44 


05368 


04120 


19990 




BNF 




, LOOK- 2 




04194 


16 


04564 


61496 


20000 






r M Dl T xA 






04206 


44 


01496 


04466 


200 10 






DO 


niiT n 
, UU 1 U 




042 18 


49 


04406 




20020 




D f 


LI O T T F 






04226 


11 


04157 


06062 


20030 


RSST 


AM 


P INFMT 




,810 


04235 




0000 1 




20040 




nr 
uc 


1 
1 


• 




04238 


12 


0476 


00061 


200 50 




C M 


no 

U 1 K 


1 

1 1 


, 10 


04250 


46 


04286 


01 100 


20060 






D c A n 






04262 


46 


0431 8 


01200 


20070 




D c 


FDD 
CKr 






042 74 


26 


04760 


041 5? 


200 80 




1 r 


no 

U 1 K 


D T M F M T 
, r llNrri 1 


.11 


04286 


11 


0415 7 


00065 


20090 


RSAD 


AM 


PTMFMT 

r 1 IN t I t 1 


» -> 


, 10 


04298 


26 


04157 


0415? 


20100 




T F 
1 r 


D T Kl F M T 

r 1 IN r n 1 


D T M FM T 


,11 


043 10 


49 


041 22 




20110 




D f 








04318 


11 


04157 


00065 


20120 


E RP 


AM 


r i IN r n 1 


f 3 


,10 


04330 


49 


04122 




20130 




B7 


LOOK 






04338 


47 


04502 


03400 


20140 


EOL 


BN I 


J Chin , j*T\j\j 






04350 


34 


00000 


00971 


20150 




1^ 


.971 






04362 


49 


04502 




20160 




B7 


JEAN 






04370 


44 


04466 


04466 


20170 


S LA S H 


BNF 


READ 


jOUTD 




04382 


14 


04424 


60405 


20180 




CM 


NF XT . T Nini IT 






04394 


46 


04578 


01200 


20190 




BE 








04406 


44 


04672 


0447 5 


20200 


WRITE 


BNF 


CARD 


_ T VP 




04418 


16 


00405 


00060 


20210 




TFM 








04429 




00001 




20220 












04424 




00000 




20230 


INC A 1 


Uo 




, '»' — u 




04430 


25 


04443 


04475 


20240 




1 u 




T VD 




04442 


49 


04466 


00000 


20250 




D 
D 


D F A n 
K C A U 






04454 


34 


€00e5 


06*02 


20260 






00005 




,2568 


04464 




00001 




20270 




DC 


1.1. *— 1 






04455 




00000 




20280 


F I XFLG 


uo 








04466 


39 


00405 


00000 


20290 


F A D 
K C M u 


U A 


I wni IT 

1 IN UU 1 






04466 




00000 




20300 


OUT D 


u o 




, READ 




04475 




00000 




20310 


T VP 
1 T r 


Uo 




.DC An + Q 

, r\ C AUt*:/ 




04478 


25 


04491 


04475 


20320 




T n 








04490 


49 


04338 


00000 


20330 




g 


E OL 






04502 


44 


04522 


04466 


20340 


1 C A M 


BNF 


jfcx o n nil T n 






04514 


49 


04546 




20350 




D f 








04522 


14 


00405 


000i4 


20360 






I NOUT 


. 1 


»10 


04534 


46 


01966 


01200 


20370 




B E 


T T flFR + 1 ? 
1 1 OC r\ ^ i ^ 






04546 


32 


04762 


00000 


20380 




F 


LTPARX 






04558 


49 


04646 


00000 


20390 


CMPLT 


g 


POS T 






04570 


49 


00000 


00000 


20400 




g 


. . 1 






04577 








20410 




DORG 


«— 4 






04577 




00001 




20420 




DC 


1 , ' 






04578 


44 


04672 


04475 


20430 




BNF 


CARD 


, T YP 




04590 


25 


04603 


04475 


20440 




TD 


1 3 


. T YP 




04602 


49 


04634 


00000 


20450 




B 


POST-12 






04614 


34 


00000 


00102 


20460 


FLAGS 


RCT Y 








04614 




00000 




20470 


HT YPEX 


DS 




, FLAGS 




04615 




00000 




20480 


STOWX 


DS 




,FLAGS+ 1 




04617 




00000 




20490 


S I GN 


DS 




, FL AGS+3 




04618 




00000 




20500 


ET YPEX 


DS 




. Fl AR<;+4 




04619 




00000 




20510 


If YPEX 


DS 




, FL AGS+5 




04621 




00000 




20520 


FTYPEX 


DS 




. Fl Ar;<;+7 




04626 


49 


04646 




20530 




B7 


POST 






04634 


34 


00000 


00951 


20540 




K 




,951 




04646 


16 


04424 


60405 


20550 


POST 


TFM 


NEXT 


, INOUT 




04658 


44 


04122 


04761 


20560 




BNF 


LOOK 
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22440 
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49 
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05540 


43 


01464 


00053 


24820 




B D 


FNnn-?4.FAr— 7 


05552 


12 


0005 2 


00061 


24830 




SM 


FAC-8,1,10, LOOP TO NORMALIZE 


05564 


31 


00053 


00054 


24840 




TR 


FAC-7 , FAC-6 


05576 


49 


05540 


00000 


24850 




B 


*-36 , ,0 


05588 


16 


03285 


05706 


24860 


ERRTR 


TFM 


ERMA,TRIG-1, 1 


05600 


49 


06588 


00000 


24870 




B 


ERR 


05612 


44 


01488 


05228 


24880 


SIN2 


BNF 


ENDD,SIN1,1 


05624 


26 


00060 


01846 


24890 




TF 


FACFLTONE 


05636 


49 


01464 


00000 


24900 




B 


ENDD-24 


05643 








24910 




DORG 


*-4 


05658 




00016 




24920 


S IN2P 


DC 


16,159154943092,, CONSTANTS 


05671 




00013 




24930 


S IN25 


DC 


13 ,-2500000000000 


05680 




00009 




24940 




DC 


9,157079632 


05688 




00008 




24950 




DC 


8,64596371 


05689 




00001 




24960 




DC 


1,0 


05696 




00007 




24970 




DC 


7,7968968 


05698 




00002 




24980 




DC 


2,0 


05704 




00006 




24990 


S INC7 


DC 


6,467377 


05707 




00005 


X2 


25000 


TRIG 


DAC 


5, TRIG' 


19990 




00000 




25010 


CTAB 


DS 


,19990 


19970 




00000 




250 20 


STAB 


DS 


,19970 










25030 
















25040 


* 














25050 


« 


EXPONENTIAL TO BASE E 










25060 








05000 








25070 




DORG 


5000 


05000 


45 


05024 


19949 


25080 




BNR 


»+24,ETAB-l,0 


05012 


49 


06576 


00000 


25090 




B 


UDV 


05024 


28 


00060 


19949 


25100 




LD 


FAC ,ETAB-1 ,, GET ARGUMENT 


05036 


14 


00055 


53112 


25110 




CM 


FAC-5, 53112 


05048 


46 


05516 


01300 


25120 




BNL 


EXP2,,0, EXPONENT TOO LARGE 


05060 


14 


00052 


00042 


25130 




CM 


FAC-8, 42,10 
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LOCTN 


□ P 


P/ L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


05072 


47 


03034 


01100 


25140 




bNh 


SETONE,,, SMALL EXPONENT 


05084 


32 


00053 


00000 


25150 




SF 


FAC-7 


05096 


26 


00098 


01877 


25160 




TP 


98,FZEREC 


05108 


ib 


05 138 


00i40 


25170 




TFM 


»+30,140,09 


05120 


52 


05 138 


00052 


25180 




S 


»+18,FAC-8,0 


05132 


21 


00000 


00060 


25190 




A 


,FAC,, FIX ARGUMENT 


05144 


16 


00052 


00950 


25200 




TFM 


FAC-8,50,9 


05 156 


1 1 


00052 


00091 


25210 




AM 


FAC-8,1,10, LOOP TO SET EXPONENT 


05168 


22 


00091 


01888 


25220 




S 


91 ,L0G10 


05180 


46 


05 156 


01300 


25230 




BNN 


»-24,,0 


05192 


44 


05252 


00099 


25240 




BNF 


»+60 ,99 ,0 


05204 


32 


00052 


00000 


25250 




SF 


FAC-8 , ,, COMPLEMENT NEGATIVE 


05216 


1 1 


00052 


00+01 


25260 




AM 


FAC-8 ,101 ,9, ARGUMENT 


05228 


33 


0009 1 


00000 


25270 




CF 


91 


05240 


49 


05264 


00000 


25280 




B 


•+24 , ,0 


05252 


21 


00091 


01888 


25290 




A 


91,L0G10,, CORRECT OVERDRAFT 


05264 


32 


0005 1 


00000 


25300 




SF 


FAC-9 


05276 


26 


00063 


01899 


25310 




TF 


FAC+3 ,0NE-3 


05288 


i6 


05359 


00063 


25320 




TFM 


EXPl-1 , FAC+3, 010, INITIALIZE LOOP 


05300 


i6 


05347 


61943 


25330 




TFM 


EXP1-13,LOG2,07 


05312 


i6 


05342 


00091 


25340 




TFM 


EXPl-18,91,010 


05324 


49 


05420 


00000 


25350 




B 


EXPl+60 , ,0 


05336 


22 


00091 


01943 


25360 




S 


91 ,L0G2 


05348 


21 


00063 


00063 


25370 




A 


FAC+3 , FAC+3 


05360 


43 


05336 


00082 


25380 


EXPl 


BD 


•-24,82,0, LOOP TO ELIMINATE DIGIT 


05372 


i2 


05359 


00091 


25390 




SM 


EXPl-1, 1,010 


05384 


i2 


05347 


00099 


25400 




SM 


EXPl-13,9,010 


05396 


iZ 


05342 


00091 


25410 




SM 


EXPl-18, 1,010 


05408 


31 


0008 2 


00083 


25420 




TR 


82,83,, STEP FOR NEXT DIGIT 


05420 


32 


00082 


00000 


25430 




SF 


82 


05432 


45 


05360 


00093 


25440 




BNR 


EXPl ,93,0 


05444 


26 


00048 


00086 


25450 




T F 


48 ,86 


05456 


23 


00062 


00048 


25460 




M 


FAC+2 ,48 


05468 


2 1 


0006 2 


00090 


25470 




A 


FAC+2 ,90 ,, MULTIPLY BY 1+X 


05480 


1 1 


0006 1 


00095 


25480 




AM 


rAO+ 1,5,10 


05492 


33 


00053 


00000 


25490 




CF 


FAC-7 


05504 


49 


1488 


00000 


25500 




B 


ENDD 


055 16 


44 


065 88 


00099 


25510 


EXP2 


BNF 


ERR, 99 ,, LARGE ARGUMENT 


0552 8 


49 


01356 


00000 


25520 




B 


ERO 


05535 








25530 




DORG 


♦-4 


1 995 




UOOOO 




25540 


ET A B 


DS 


, 19950 










25550 
















255 60 


* 














25570 


* 


NATURAL LOGARITHM 










25580 


it 






05000 








25590 




DORG 


5000 


05000 


45 


05024 


19929 


25600 


ALOG 


BNR 


♦+24,LTAB-1,0 


05012 


49 


06576 


00000 


25610 




B 


UDV 


05024 


26 


00050 


19929 


25620 




TF 


FAC-10,LTAB-1 


05036 


14 


00050 


90009 


25630 




CM 


FAC-10, 0,711 


05048 


47 


05540 


01100 


25640 




BNP 


ELOG, ,0 


05060 


12 


00042 


000§0 


25650 




SM 


FAC-18,50, 10 


05072 


23 


01888 


00042 


25660 




M 


L0G10,FAC-18 


05084 


26 


00065 


00099 


25670 




TF 


FAC+5,99,, LOG OF CHARACTERISTIC 


05096 


32 


00043 


00000 


25680 




SF 


FAC-17 


05108 


28 


00097 


00050 


25690 




LD 


97, FAC-10 


05120 


14 


00091 


00050 


25700 


LOOPl 


CM 


91,50,10, LOOP TILL OVER 0.5 


05132 


46 


05180 


01300 


25710 




BNL 


INIT,,0, ANSWER BUILDS UP IN FAC+5 


05144 


2 1 


00097 


00097 


25720 




A 


97,97, 


05156 


22 


00065 


01943 


25730 




S 


FAC+5, L0G2 


05168 


49 


051 20 


00000 


25740 




B 


LOOPl, ,0 


05180 


i6 


05222 


00091 


25750 


IN IT 


TFM 


LOGl+6,91,010, INITIALIZE LOOP 


05192 


i6 


05251 


00098 


25760 




TFM 


LOGl+35,98,010 


05204 


+6 


05263 


61934 


25770 




TFM 


L0G1+47,L0G11,07 


052 16 


14 


00000 


99990 


25780 


LOGl 


CM 


,99990,7, LOOP TILL OVER 0.9999 


05228 


46 


05276 


01300 


25790 




BNL 


STEP,,0, FIRST 1.1, THEN 1-01, ETC 


05240 


21 


00099 


00000 


25800 




A 


99,, 


05252 


22 


00065 


00000 


25810 




S 


FAC + 5 


05264 


49 


05216 


00000 


25820 




B 


LOGl , ,0 


05276 


*1 


05222 


00091 


25830 


STEP 


AM 


LOGl+6, 1,010, STEP 1.1 TO 1.01, ETC. 


05288 


i2 


05251 


00061 


25840 




SM 


LOGl+35, 1,010 


05300 


i2 


05263 


60009 


25850 




SM 


LOGl+47,9,07 


05312 


46 


05216 


01400 


25860 




BV 


L0G1,,0, NO OVERLOW AT END 


05324 


21 


00065 


00098 


25870 




A 


FAC+5, 98 


05336 


22 


00065 


01898 


25880 




S 


FAC+5, ONE-4, , LOG X = X-1 


05348 


16 


00052 


00054 


25890 




TFM 


FAC-8, 54, 10 


05360 


25 


00099 


00065 


25900 




TD 


99, FAC+5,, SAVE SIGN 


05372 


33 


00065 


00000 


25910 




CF 


FAC+5 


05384 


46 


01376 


01200 


25920 




BZ 


ZERFAC,,, TEST FOR ZERO 


05396 


25 


00066 


01877 


25930 




TD 


FAC+6,FZEREC 


05408 


43 


05468 


00054 


25940 


nurmal 


BD 


L0GR,FAC-6,0 


05420 


31 


00054 


00055 


25950 




TR 


FAC-6,FAC-5,, NORMALIZING LOOP 


05432 


25 


00065 


01354 


25960 




TD 


FAC+5, FILL 


05444 


12 


00052 


00061 


25970 




SM 


FAC-8,1,10 


05456 


49 


05408 


00000 


25980 




B 


NORMAL, ,0 


05468 


11 


00062 


00065 


25990 


LOGR 


AM 


FAC+2, 5, 10, ROUND RESULT 


05480 


33 


00053 


00000 


26000 




CF 


FAC-7 


05492 


43 


01464 


00053 


26010 




BD 


ENDD-24, FAC-7,, TEST FOR CARRY 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


05504 


12 


00052 


00001 


26020 




SM. 


FAC-BtltlO 


05516 


31 


00053 


00054 


26030 




TR 


FAC-7,FAC-6 


05528 


49 


01464 


00000 


26040 




B 


ENDD-24 


05540 


46 


06588 


01200 


26050 


ELOG 


BE 


ERR 


05552 


16 


03285 


05572 


26060 




TFM 


ERMA ,ERLNM-1 ,1 


05564 


49 


06588 


00000 


26070 




B 


ERR 


05571 








26080 




DORG 


»-4 


05573 




00005 


X2 


26090 


ERLNM 


DAC 


5 ,ERLN' 


19930 




00000 




26100 


LTAB 


OS 


,19930 










26110 


♦ 














26120 


» 














26130 


* 


SQUARE ROOT 










26140 


« 






05000 








26150 




DORG 


5000 


05000 


31 


00044 


01841 


26160 


SORT 


TR 


FAC-16,FLT0NE-5 


05012 


45 


05036 


19909 


26170 




BNR 


»+24,QTAB-l ,0 


05024 


49 


065 76 


00000 


26180 




B 


UDV 


05036 


21 


00071 


19909 


26190 




A 


FAC+11,QTAB-1 


05048 


46 


01376 


01200 


26200 




BE 


ZERFAC 


05060 


47 


05336 


01300 


26210 




BN 


NSQR , ,0 


05072 


13 


00063 


00050 


26220 




MM 


FAC+3,50,10 


05084 


11 


00098 


00255 


26230 




AM 


98,255,9 


05096 


25 


00080 


01877 


26240 




TD 


FAC+20 ,FZEREC 


05108 


15 


00072 


00005 


26250 




TDM 


FAC+12 ,5 


05120 


16 


00063 


ooeoo 


26260 




TFM 


FAC+3,0,9 


05132 


43 


05168 


00098 


26270 




BD 


♦+36,98,0 


05144 


26 


00073 


00072 


26280 




TF 


FAC+13 , FAC + 12 


05156 


15 


00062 


00000 


26290 




TDM 


FAC + 2 


05168 


*6 


05186 


00065 


26300 




TFM 


«+18,FAC+5,010 


05180 


21 


00000 


00053 


26310 


SQRTl 


A 


,FAC-7 


05192 


43 


05228 


00062 


26320 




BD 


SQRT2, FAC+2, 


05204 


12 


0005 3 


00002 


26330 




SM 


FAC-7,2,10 


05216 


49 


05180 


00000 


26340 




B 


SQRTl,, 


05228 


26 


05246 


05186 


26350 


SQRT2 


TF 


«+18,SQRTl+6,01 


05240 


22 


00000 


00053 


26360 




S 


,FAC-7 


05252 


il 


05186 


oooei 


26370 




AM 


SQRTl+6, 1,010 


05264 


31 


0004 3 


00044 


26380 




TR 


FAC-17,FAC-16 


05276 


33 


00060 


00000 


26390 




CF 


FAC 


05288 


32 


00061 


00000 


26400 




SF 


FAC+1 


05300 


45 


05180 


00072 


26410 




BNR 


SQRTl, FAC+12, 


05312 


26 


00052 


00097 


26420 




TF 


FAC-8,97 


05324 


49 


01488 


00000 


26430 




B 


ENDD 


05336 


16 


03285 


05356 


26440 


NSQR 


TFM 


ERMA ,SQERM-1 ,1 


05348 


49 


06588 


00000 


26450 




B 


ERR 


05355 








26460 




DORG 




05357 




00005 


X2 


26470 


SQERM 


DAC 


5 ,NSOR« 


19910 




00000 




26480 


QTAB 


DS 


,19910 










26490 
















26500 


« 














26510 




ABSOLUTE VALUE 










26520 


* 






05000 








26530 




DORG 


5000 


05QO0 


45 


05024 


19889 


26540 




BNR 


*+ 24, ATAB- 1,0 


05012 


49 


06576 


00000 


26550 




B 


UDV 


05024 


28 


00060 


19889 


26560 


ABS 


LD 


FAC,ATAB-1 


05036 


42 






26570 




BB2 




19890 




00000 




26580 


ATAB 


DS 


,19890 










26590 


« 














26600 
















26610 


« 


ABSOLUTE VALUE OF AN INTEGER 










26620 


» 






05000 








26630 




DORG 


5000 


05000 


45 


05024 


19869 


26640 


NABS 


BNR 


»+ 24 , NTAB- 1 , 


05012 


49 


06576 


OOOOG 


26650 




B 


UDV 


05024 


28 


00060 


19869 


26660 




LD 


FAC,NTAB-1 


05036 


42 






26670 




B&2 




19870 




00000 




26680 


NTAB 


DS 


,19870 










26690 
















26700 
















26710 




ARCTANGENT SUBROUTINE 










26720 


« 






05000 








26730 




DORG 


5000 


05000 


45 


05024 


19849 


26740 




BNR 


«+24,TTAB-l,Q 


05012 


49 


06576 


00000 


26750 




B 


UDV 


05024 


28 


00060 


19849 


26760 


A TAN 


LD 


FAC,TTAB-1,, GET ARGUMENT AND 


05036 


25 


05635 


00099 


26770 




TD 


ATAN4+11,99,0, SAVE SIGN 


05048 


14 


00052 


00043 


26780 




CM 


FAC-8,43,10 


05060 


47 


01464 


01300 


26790 




BL 


ENDD'-24 


05072 


14 


0005 2 


00051 


26800 




CM 


FAC-8,51,10 


05084 


47 


05132 


01300 


26810 




BL 


ATANl , ,0 


05096 


26 


02233 


01846 


26820 




TF 


FDVR-1,FLT0NE 


05108 


26 


01495 


05696 


26830 




TF 


ENDD+7 , ATAN 1 B+1 , 1 , SET RETURM ADOR 


05120 


49 


02234 


00000 


26840 




B 


FDVR , , , GET REC I PROCAL 


05132 


18 


00084 


oooeo 


26850 


ATANl 


LDM 


84,0,10 


05144 


+6 


05198 


00i42 


26860 




TFM 


•+54,142,09 


05156 


«2 


05198 


00052 


26870 




S 


»+42,EAC-a,0 


05168 


49 


05204 


05196 


26880 




BO 


»+36,*+28»0t 


05180 


32 


00053 


00000 


26890 




SF 


FAC- 7 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


nPFRAND^ AND RFMARK^ 


05192 


2 1 


nnonn 




26900 






.PAT.. PTV ARf^llMPNT 


05204 


26 


00068 


00099 


26910 




TF 




052 16 


14 


00057 




26920 






F A r — 
r M u J 


05228 


46 


05552 


1 200 


26930 




BZ 


A T A + 9^ . • n 


05240 


i6 


05299 


OOO-tl 


26940 




TFM 


ATAN2+1 1 ,11,010 


05252 


ih 


05539 


65723 


26950 




TFM 


ATAN^+1 1 .ATANT-l 1 .017 


05264 


i2 


05299 


oooei 


26960 




SM 


ATAN2+11 ,1,010 


05276 


il 


05539 


000+1 


26970 




AM 


ATAN3+11 ,11,010 


05288 


14 


00085 


©0000 


26980 


ATAN2 


CM 


85 


05300 


47 


05264 


01300 


26990 




BL 


«-36,,0, LOOP TO BRACKET ARG. 


053 12 


23 


00065 


05299 


27000 




M 


FAr + 5.*— 1 1 


05324 


32 


\J\J\J O *J 


nnnon 


270 10 




o r 


R A 


05336 


1 1 


00087 


OOOiO 


27020 




AM 


fl7 .10. in. 1+AX 


05348 


26 


00050 


00094 


27030 




TF 


P AT — 1 n . Q4i. 


05360 


28 


0009 1 


00064 


c. l\J *tU 




1 n 


Q 1 CAP x/l 


05372 


2£ 


0008 1 


05299 


2 70 50 




c 
o 


HI A T A Nl 9-1- 1 1 . 1 V — A 


05384 


29 


00090 


00050 


27060 




Q 


Qn.FAT — in.. Y = ( y — A W f 1 -»• A X 1 


05396 


26 


0007 9 


00090 






T C 
1 r 


7Q Qn ADPIIMPKtT IPCC TUAM n 1 


05408 


23 


00076 


00076 


27080 




M 


76 , 76 


05420 


26 


00050 


00092 


27090 




J p 


FAT— in.Q9.. Y <;OIIARFn 


05432 


1 3 


00048 


+9786 


9 71 nn 




MM 


FAT— 19 1 07RA 


05444 


26 


00064 


05723 


271 10 




J f 


FAT-f ^. . ATA Wr 9.1 


05456 


22 


00064 


00094 


27120 




s 


FAC+4,94,, EVALUATE POLYNOMIAL 


05468 


23 


00064 


00050 


271 30 




M 


FAr^A FAT— in 


05480 


26 


00064 


05716 


27140 




jp 


PAr-4-A.. ATAWr 1.1 


05492 


22 


00064 


00092 


27150 




5 


F Ar-l-4 . Q9 


05504 


23 


00064 


0007 9 


271 60 




M 


CAr.|.A 7Q 


055 16 


26 


00064 


01871 


27170 




JP 


FAr-»-4.F7FRFr— A 

n M O • " , 1 i. 1- IN EI v> o 


05528 


21 


00064 


00000 


271 80 


ATAN3 


A 


FAC+4,,, ATANCA) 


05540 


21 


00065 


00091 


27190 






FAr-fS.QI.. ATAWfyi 

nM^T^,7X,, MIMIN\A/ 


05552 


25 


00069 


01877 


27200 




TO 


FAC+9 , FZEREC 


05564 


44 


05624 


01495 


272 10 




BNF 


ATAN4 , ENDD+7 , 


055 76 


16 


01494 


Q 1 496 


27220 




TFM 


PNinn-fA . RR 


055 88 


33 


1495 


00000 


27230 




CF 


ENDD+7 


05600 


22 


00064 


05707 


27240 




s 


FAC+4, ATANP2, 1 , COMPLEMENT RESULT 


056 12 


33 


00064 


nnnnn 


272 50 




C F 


FAC+4 


05624 


1^5 


00099 


nnonn 


27260 


A TAN4 


TDM 


99 


05636 


16 


00052 


00051 


27270 




TFM 


FAT— ft ."SI .in 


05648 


43 


01464 


00053 


c. t c.oyj 




D U 


Fwnn— 9^..FAr— 7 


05660 


3 1 


00053 


000 54 


27290 




TR 


FAT — 7 . FAT — A .. NORMA 1 T7F 


05672 


12 


00052 


00091 


27300 




SM 


FAC-8 ,1,10 


05684 


49 


05648 


051 32 


27310 




g 


" JO ,MIMIvX,K^X 


05695 








27320 


H 1 M IN Ji D 


DS 




05707 




000 12 




27330 


ATANP2 


DC 


12,157079632679 


05716 




00009 




27340 


ATANir 1 


DC 




05723 




00007 




27350 


ATANC2 


DC 


7 , 3333253 


05734 




000 1 1 




27360 


ATANT 


DC 


11 ,78539816340 


05745 




000 11 




27370 




DC 


1 1 ,73281510179 


05756 




000 1 1 




27380 




DC 


11 ,67474094222 


05 767 




000 1 1 




27390 




DC 


11.61 n79'5Q64^9 


05778 




000 1 1 




2 7400 




DC 


11 . 'S4n41 Qsno77 


05789 




000 1 1 




2 741 




DC 


1 1 . 4A'^ A47A nQnn 


05800 




000 1 1 




2 7420 




DC 


1 1 .■^ Rn*>nA^77 1 1 

XX fZJO\JJ\JOJ f f XX 


U-J O 1 i 




n nn 1 1 
UUU i i 




1 ii.'xn 

C. 1 *T^U 




DC 


11 ,29145679448 


05 822 




000 1 1 




2 7440 




DC 


11,19739555985 


05 833 




000 1 1 




27450 




DC 


11 ,9966865249 


05 844 




000 1 1 








DC 


11,0 


19850 








27470 


TT AB 


DS 


,19850 










27480 


















* 














27500 




DROP RIGHT HALF (TRUNCATION) 










2 7510 








UDUUU 








OIK on 




DORG 


5000 


05000 


45 


05024 


19829 


2 75 30 




BNR 


•+24,DTAB-1 ,0 


050 12 


49 


065 76 


nnnnn 


27540 




B 


UDV 


05024 


28 


nnnf\ n 


1 GO pQ 


9 7R 




LD 


FAC ,DTAB-1 


05036 


14 


0005 2 


00050 


2 75 60 




CM 


FAC-8 ,50 ,10 


05048 


47 


01376 


1 1 00 


27570 




BNH 


ZERFAC 


05060 


14 


00052 


00058 


27580 




CM 


FAC-8 ,58 ,10 


05072 


46 


1464 


1 300 


27590 




BNL 


ENDD-24 


05084 


•i6 


05 114 


60003 


27600 




TFM 


•+30 ,3 ,07 


05096 


2 1 


05 114 


00052 


27610 




A 


•+18 , FAC-8 ,0 


05 1 08 


31 


00000 


01869 


27620 




TR 


,FZEREC-8 


05120 


49 


01464 


00000 


27630 




B 


ENDD-24 


19830 




00000 




27640 


DTAB 


DS 


,19830 










27650 
















27660 


« 














2 76 70 




PSEUDO RANDOM INTEGER 










2 7680 








05000 








27690 




DORG 


5000 


05000 


44 


05 108 


05023 


27700 




BNF 


MULT,*+23,01 


05012 


S3 


05023 


00006 


27710 




CF 


•+11 , ,011 


05024 


45 


05048 


19809 


27720 




BNR 


•+24,PTAB-1 ,0 


05036 


49 


06576 


00000 


27730 




B 


UDV 


05048 


13 


19809 


00065 


27740 




MM 


PTAB-1,05,10 


05060 


43 


05084 


00099 


27750 




BD 


MOVE, 99,0 


05072 


11 


19809 


00061 


27760 




AM 


PTAB-1,01,10 


05084 


26 


05206 


19809 


27770 


MOVE 


TF 


NR, PTAB-1,0 
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LOCTN 


□ P 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


05096 


33 


05202 


00000 


27780 




CP 


NR-4, ,0 




05108 




05196 


05206 


27790 


MULT 


M 


F,NR,01 




05120 


32 


00090 


00000 


27800 




SF 


90 




05132 


26 


05206 


00099 


27810 




TF 


NR,99,0 




05144 


26 


00060 


00094 


27820 




TF 


FAC,94 




05156 


16 


00055 


©0000 


27830 




TFM 


FAC-5,0 




05168 


33 


00056 


00000 


27840 




CF 


FAC-4 




05180 


49 


01488 




27850 




B7 


ENOD 




05196 




00010 




27860 


p 


DC 


10,8212890627 




05206 




00010 




27870 


NR 


DC 


10,0 




19810 




00000 




27880 


PTAB 


DS 


,19810 












27890 


















27900 




MOVE (TRANSFERS RECORDS TO AND FROM DISK, ALSO USED TO SEE 










27910 


« 




A rvi TKinPQ ) 












27920 


It 
















27930 


















27940 


« 








05000 








27950 




OORG 


5000 




05000 


45 


05024 


19789 


27960 




BNR 


MVcNTtMlAD— 1,0 




05012 


49 


06576 


00000 


27970 




D 
D 


UU V 




05024 


44 


05 108 


05031 


27980 


MVENT 


BNF 


nVtNT2»ArT INI ,017 




05031 




00000 




27990 


AFT IN I 


nc 


M \/ C Kl T J. *7 




05036 


33 


05031 


00000 


28000 




u r 


A PT T W T • » n 
API XINI,,U 




05048 


21 


05227 


00879 


28010 




A 
A 


AAAi + H,LUMbCb,U 




05060 


21 


05299 


00879 


28020 




A 
H 


Ai D^ii cnhAucc' r\ 




05072 


21 


05383 


00879 


28030 






AAA^"AJL,UUntjCO,U 




05084 


21 


05443 


00879 


28040 






AAA3 + li,UUnDtlj,U 




05096 


21 


05635 


00879 


28050 






AAA*TTiX,|^UrlDCo,U 




05108 


4& 


05132 


0522? 


28060 


MVENT2 


BNR 


»+9^..yxyi + i 1 .ni 1 1 

^~^*T,AAAXT^ii,Uiil 




05120 


49 


06576 


00000 


28070 




g 


UDV 




05132 


45 


05156 


05383 


28080 




BNR 


'^~<l*t,AAAiLTXi,Uili 




05144 


49 


06576 


00000 


28090 




g 


UDV 




05156 


45 


05 180 


00879 


28100 




BNR 


*4- 9^ . pnMRPp nil 




05168 


49 


06576 


00000 


281 10 




g 


Kjuv 




05180 


45 


05204 


05299 


28120 




BNR 






05192 


49 


06576 


00000 


28130 




D 
D 


UU V 




05204 


26 


05973 


05993 


28140 




jp 


L. A , 1 IVUo 1 , U 1 , 


rupru PfiD 7cf3n no mpt ptdct ocrnon 


052 16 


22 


05973 


60026 


28150 


XXX 1 


c 
O 


UA , dVt'J ' 1 i. , 


irlKbl KtUUKU; IIN U AUUKtiC) 


05228 


47 


05288 


01100 


28160 




BNH 


ALR , , 




05240 


49 


05264 


00000 


28170 




g 


UU 1 n V , , u 




05252 


ib 


05977 


04449 


28180 


DERR 


TFM 






05264 


16 


03285 


05974 


28190 


OUTMV 


TFM 


PDMA Mn\/PM»1 


, X 


05276 


49 


06588 


00000 


28200 




g 


ERR 




05288 


21 


05 97 3 


60036 


28210 


ALR 




CA, 30, 07 11, 


(LAST RECORD) IN ADDRESS 


05299 




00000 




28220 


LR 


DS 






05300 


47 


05264 


01 100 


28230 




BNH 


U U 1 11 V , , w , 


THPrk 1 A<^T HFr fXRTR D AMD P T R <^ T OR— 1^ 


05312 


23 


05973 


00879 


28240 




M 


CA,C0MBEG,011 , 


CHECK FOR REC LENGTH GREATER THAN ZER 


05324 


47 


05264 


01 100 


28250 




Dm n 


UU 1 n V , , u 




05336 


32 


00096 


60000 


28260 




SF 


, , / 




05347 




00000 




28270 


NXC YL 


DS 


, * 




05348 


14 


00098 


00200 


28280 




CM 


98 .?00 . 9 




05360 


46 


05264 


01100 


28290 




BH 


OUTMV , ,0 




05372 


26 


05965 


60016 


28300 


XXX2 


TF 


SA , 10 , 071 1 , 


(MAX NO. RECORDS) IN Q ADDRESS 


05383 




00000 




28310 


MNR 


DS 


» * 




05384 


22 


05965 


05299 


28320 




s 


SA,LR,0111, 




05396 


47 


05264 


01300 


28330 




BL 


OUTMV, ,0 




05408 


43 


05264 


00879 


28340 




BD 


0UTMV,C0MBEG,011 , 


CHECK NO WDS/REC IS MULTIPLE OF 10 


05420 


26 


05968 


00098 


28350 




TF 


SC ,98,0, 


SECTOR COUNT 


05432 


23 


05383 


eoooi 


28360 


XXX3 


M 


MNR, 1,06711, 


(RECORD LENGTH) IN Q ADDRESS 


05443 




00000 




28370 


RL 


DS 


,* 




05444 


24 


00099 


01067 


28380 




C 


99,PRBS 




05456 


46 


05264 


01100 


28390 




BH 


OUTMV, ,0 




05468 


23 


05443 


05965 


28400 




M 


RL,SA,016 




05480 


32 


00095 


00000 


28410 




SF 


95,,, 


DUMMY CONTAINS SAVED SECTOR ADDRESS 


05491 




00000 




28420 


DUMMY 


DS 


,* 




05492 


26 


05965 


00099 


28430 




TF 


SA,99,0 




05504 


il 


05965 


60000 


28440 




AM 


SA, 60000, 07, 




05516 


25 


05960 


00402 


28450 




TD 


DKCF, 402,0 




05528 


43 


05564 


19789 


28460 




BD 


AAl ,MTAB-1,0 




05540 


34 


05960 


00701 


28470 




K 


DKCF, 00701 ,0 




05552 


49 


01376 


00000 


2 8480 




B 


ZERFAC 




05564 


26 


05491 


05965 


28490 


AAl 


TF 


DUMMY,SA,01 




05576 


i3 


05 96 5 


00050 


28500 




MM 


SA,50,010 




05588 


11 


00095 


00601 


28510 




AM 


95,1,9 




05600 


26 


05 345 


00095 


28520 




TF 


NXCYL-2,95,0 




05612 


21 


05 34 5 


00095 


28530 




A 


NXCYL-2,95,0, 


1ST SECTOR ADDRESS, NEXT CYLINDER 


05624 


+6 


05973 


60039 


28540 


XXX4 


TFM 


CA, 39, 0711 




05636 


22 


0597 1 


05968 


28550 




S 


CA-2,SC,01, 


CORE ADDRESS 


05648 


47 


05 264 


01100 


2 85 60 




BNH 


OUTMV, ,0 




05660 


24 


05 973 


00855 


28570 




C 


CA,BSTBG,0 




05672 


47 


05264 


01100 


28580 




BNH 


OUTMV, ,0 




05684 


16 


00099 


00066 


28590 




TFM 


99,0,1011 




05696 


44 


05732 


19789 


28600 


ROW 


BNF 


AA2,MTAB-1 ,0 




05708 


36 


05960 


00702 


28610 




RN 


DKCF, 00702,0 




05720 


49 


05756 


00000 


28620 




B 


AA3, ,0 




05732 


38 


05960 


00702 


28630 


AA2 


WN 


DKCF, 00702,0 




05744 


36 


05960 


00703 


28640 




RN 


DKCF, 00703,0 




05756^ 


46 


05780 


03900 


28650 


AA3 


BI 


AA4,03900,0, 


ANY INDICATOR CHECK 
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LOCTN OP 



P/L 



PG/LN LABEL MNEM OPERANDS AND REMARKS 



05768 
05780 
05792 
05804 
05816 
05828 
05840 
05852 
05864 
05876 
05888 
05900 
05912 
05924 
05936 
05948 
05960 
05965 
05968 
05973 
05975 
05993 
19790 



05000 
05000 
05012 
05024 
05036 
05048 
05060 
05072 
05084 
05096 
05108 
05120 
05132 
05134 
05295 
05075 
19749 



05000 
05000 
05012 
05024 
05036 
05048 
05060 
05072 
19730 



05000 
05000 
05012 
05024 
05036 
05048 
05060 
05072 
05084 
05096 
05108 
05120 
05132 
05144 
05156 
05168 
05180 
05192 
05195 



49 01376 
47 05840 
05252 
00099 
05960 
05696 
05888 
05252 
00098 
05696 
26 05965 
ee 05491 
32 05489 
£i- 05968 
05971 
05816 
00014 
00000 
00000 
00000 
00005 
00010 
00000 



44 

33 
§4 
49 
47 
44 
33 
49 



49 



05000 
05000 26 
05012 42 



45 

49 
44 
33 
26 
31 
42 
44 
16 
49 
3* 
42 



45 

49 
32 
26 
16 
16 
49 



45 
49 
14 
46 
32 
26 
73 
43 
15 
il 
il 
43 
32 
26 
i6 
i6 
42 



00000 
03600 
00099 
00000 
00701 
00000 
03700 
00098 
00000 
00000 
05347 
05347 
00000 
05491 
05491 
00000 



X2 



00060 00099 



05024 
06576 
05084 
65038 
00565 
05134 
00000 
05120 
03285 
06588 
00404 

00160 
00002 
00005 
00000 



05024 
06576 
02022 
00425 
02038 
02028 
01966 
00000 



05024 
065 76 
19704 
05204 
19705 
05059 
19709 
05144 
19760 
05095 
05102 
05084 
19700 
00060 
05095 
05102 
00000 
00005 



19749 
00000 
19749 
00000 
04429 
00404 
00000 
05038 
05074 
00000 
05134 



X2 



19729 
00000 
00000 
19729 
00673 
64656 



19709 
00000 
60000 
01100 
60000 
19709 
05059 
19761 
00000 
00062 
00062 
05102 
00000 
19709 
19761 
19760 
00000 
X2 



28660 
28670 
28680 
28690 
28700 
28710 
28720 
28730 
28740 
28750 
28760 
28770 
28780 
28790 
28800 
28810 
28820 
28830 
28840 
28850 
28860 
28870 
28880 
28890 
28900 
28910 
28920 
28930 
. 28940 
28950 
28960 
28970 
28980 
28990 
29000 
29010 
29020 
29030 
29040 
29050 
29060 
29070 
29080 
29090 
29100 
29110 
29120 
29130 
29140 
29150 
29160 
29170 
29180 
29190 
29200 
29210 
29220 
29230 
29240 
29250 
29260 
29270 
29280 
29290 
29300 
29310 
29320 
29330 
29340 
29350 
29360 
29370 
29380 
29390 
29400 
29410 
29420 
29430 
29440 
29450 
29460 
29470 
29480 
29490 
29500 
29510 
29520 



AA4 

BSK 
BOF 

NOHOW 



DKCF 
SA 
SC 
CA 

MOVEM 
TNDGl 
MTAB 



SAVEl 
SAVES 



SMSST 
RETRV 



RETRl 
STORE 



SAVEM 
SVTAB 



LKTAB 



NFILA 



NFILB 



NFILC 



NFILD 



B 

BNI 

BNF 

CF 

K 

B 

BNI 
BNF 
CF 
B 

TF 
S 

SF 
A 
S 
B 

DSS 

DS 

DS 

DS 

DAG 

DC 

DS 



ZERFAC 

BOF, 03600,0, 

DERR,99,0 

99 

DKCF, 0070 1,0 
ROW, ,0 

NOHOW, 03700,0, 

DERR,98,0 

98 

ROW,,0 
SA,NXCYL,01 
DUMMY, NXCYL, 01 
DUMMY-2, ,0 
SC, DUMMY, 01 
CA-2, DUMMY, 01 
BSK, ,0 
14 

,DKCF+5 

,DKCF+8 

,DKCF+13 

5, TASK' 

10,1, 

,19790 



WRONG ADDRESS CHECK 



WRONG LENGTH REC/READ BACK CHECK 



EVALUATES N MOD M 



MOD(N/M) 

DORG 5000 
TF 60,99 
BB2 



SAVE(TO SAVE AND RETRIEVE INPUT INFO FOR LATER REREAD) 

DORG 5000 

BNR SAVEl , SVTAB, 

B UOV 

BNF RETRV, SVTAB, 

CF ♦+2,,02 

TF IN0UT+160,NEXT+5 

TR STORE, INOUT-1,0 

BB 

BNF RETRl ,SAVES+2, 01 

TFM ERMA,SAVEM-1,1 

B ERR 

TR INOUT-1, STORE, 1 
BB2 

DSS 160 

DC 2,0' 

DAC 5,SAVE ' ,SMSST+3 

DS ,19749 



LINK 










DORG 


5000 








BNR 


«+24 


,LKTAB-1 


» 





B 


UDV 








SF 


LNKFLG 








TF 


425 


,LKTAB-1 






TFM 


ABNDCF-7 


,073 




9 


TFM 


ABNDCF-17 


,4656 


» 


711 


B7 


TIGER+12 








DS 


,19730 








JFIL 


SUBROUTINE TO CONVERT INTEGER 


DORG 


5000 








BNR 


NFILA , 


NFTAB 


,0 




B 


UDV 








CM 


NFTAB-5 , 





, 


7 


BP 


NFILE , 




,0 




SF 


NFTAB-4 , 




, 


7 


TF 


NFILB+11, 


NFTAB 


,0 




TNF 


NFTAB , 


NFILB+11 


, 1 




BD 


NFILD , 


NFTAB-8 


,0 


10 


TDM 


NFTAB-9 , 





, 


5 


AM 


NFILC+11, 


2 


,0 


10 


AM 


NFILC+18, 


2 


,0 


10 


BD 


NFILC , 


NFILC+18 


,01 




SF 


NFTAB-9 








TF 


FAC , 


NFTAB 






TFM 


NFILC+U, 


NFTAB-8 


,0 


10 


TFM 


NFILC+18, 


NFTAB-9 


,0 


10 


BB 










DAC 


5,NFIL' ,*- 


8 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 


05204 


Ih 


03285 


95194 


29530 


NF ILE 


TFM 


ERMA 




. in .17 


05216 


49 


06588 




29540 




B7 


ERR 






19709 




00000 




29550 


NFTAB 


DS 


,19709 














295 60 




















29570 




















29580 




NUPL 


MODIFY 


PAr^P AND 1 TNIF mNTRni 
rMOC MINI/ L-itNC OUINlt\UL 










29590 












05000 








29600 




DORG 


5000 






05000 


45 


05024 


19689 


29610 




BNR 


NUPLA 




NUTAB ,0 


05012 


49 


065 76 


00000 


29620 




B 


UDV 






05024 


43 


05072 


19689 


29630 


NUPLA 


BD 


NUPLB 




NUTAB ,0 


05036 


43 


05 1 20 


19688 


29640 




BD 


NUPLC 




NUTAB-1 ,0 


05048 


16 


03285 


65160 


29650 




TFM 


ERMA 




NIIIPI n— 1 .17 


05060 


49 


06588 


00000 


29660 




B 


ERR 






05072 


44 


05098 


19689 


29670 


NUPLB 


BNF 


*+26 




NUTAB ,0 


05084 


15 


04339 


00007 


29680 




TDM 


EOL+1,7 






05096 


42 






29690 




BB2 








05098 


15 


04339 


00009 


29 700 




TDM 


EOL+1,9 






051 10 


42 






29 710 




BB2 








051 19 








29720 




DORG 


«+8 






05 120 


44 




1 QARQ 




NU PLC 


BNF 


*+26 


» 


Ml IT A Q n 


05132 


15 


04477 


00000 


29740 




TDM 


READ+1 


1, 





05144 


42 






29750 




BB2 








05146 


15 


04477 


0000 1 


29760 




TDM 


READ+11 , 


1 


05158 


42 






29770 




BB2 








05161 




00005 


X2 


29780 


NUPLD 


DAC 


5, NUPL 


1 




19689 




00000 




29790 


NUTAB 


DS 


,19689 














29800 






SGN 


1 


C4D SUBROUTINE 










29810 






THE ARGUMENT OF SGN IS EXAMINED AND CAUSES 










29820 


« 




FAC = 


1. 


IF POSITIVE 










29830 




OR 


FAC = 


0. 


IF ZERO 










29840 




OR 


FAC =- 


1. 


IF NEGATIVE 


19810 




00000 




29850 


SGNTAB 


DS 






, 19810 










29860 










LOCATED TO REPLACE PSEUDO RANDOM INTEGER 


05000 








29870 




DORG 


5000 






05000 


45 


05024 


19809 


29880 




BNR 


»+24 




,SGNTAB-1 ,0 


05012 


49 


06576 


00000 


29890 




B 


UDV 






05024 


26 


00060 


01846 


29900 




TF 


FAC 




,FLTONE 


05036 


14 


198 09 


oooeo 


29910 




CM 


SGNTAB- 


1 


, ,10 


05048 


46 


01376 


01200 


29920 




BE 


ZERFAC 






05060 


47 


01476 


01300 


29930 




BL 
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LABELS IN THE FORTRAN LABEL INDEXER 



A CONTAINS ADDRESS OF TOP OF STATEMENT NUMBER TABLE. 

AA IN THE. .PUTV.. ROUTINE, CHECKS FOR END OF VARIABLE NAME, SKIPS IMBEDDED 

BLANKS, SETS DEFINING FLAG IN ..SCAN.., TRANSMITS VARIABLE SYMBOL RANGE 
TO ..SYMCK.. AND EXITS TO ..SYMCK... 
ADTO IN THE ..EQCHK.. ROUTINE, INCREMENTS LOCATION ..ADR.. IN INPUT 

BUFFER (CHI) WHEN CHECKING THE TYPE OF STATEMENT BY SPECIAL CHARACTER. 

ENTERED FROM ..LPAR.. AND ..A3... EXIT TO ..Al... 
ADS IN THE OUTPUT SECTION, ADDS 5 TO LOCATION BEING CHECKED IN SYMBOL 

TABLE ..VA+35.. BEFORE CHECKING FOR DEFINITION DIGIT AT ..VA+24.. 

BECAUSE OF PREVIOUS CHECK FOR NEXT LABEL. 
ARITH HANDLES ARITHMETIC STATEMENTS SETTING REFERENCE DEFINITION 

INDICATOR ..REDEI.. FOR LEFT AND RIGHT OF EOUAL SIGN. EXIT TO 

..PUTTST... 

ASTMSG ALPHA MESSAGE— OTHER CARDS WHERE VARIABLES ARE DEF INED— OUTPUT 

IN ..CALSYS.. BEFORE BRINGING THE EXECUTIVE IN. 
Al IN THE ..EQCHK. .ROUTINE, CHECKS FOR END OF SOURCE STATEMENT WHILE 

CHECKING TYPE OF STATEMENT BY SPECIAL CHARACTERS. EXITS TO ..LPAR.. 

OR ..ETEST... 

A2 IN THE ..EOCHK.. ROUTINE, CHECKS IF LEFT PARENTHESIS OR COMMA IS FIRST 

SPECIAL CHARACTER. EXITS TO ..A3.. FOR LEFT PARENTHESIS, TU . CUM ICT. 
FOR COMMA. 

A3 IN THE ..EQCHK.. ROUTINE, CHECKS FOR EQUAL SIGN, EXIT TO ..DUTEST.., 

OR IF LEFT PARENTHESIS FOLLOWED BY EQUAL SIGN, EXIT TO ..ARITH.. . 
BA2 PUTS AVOID ..0*.. AT END OF SOURCE STATEMENT. 

BEG BEGINNING OF LABEL INUEXER PROPER. SETS FLAG DEFINING BLANK FIELD 

..BLK.. IN THE BLANK RECORD ..BLKl... 
BLK BLANK FIELD OF 10 DIGITS. 

BLKl BLANK RECORD OF 80 ALPHA CHARACTERS, 160 DIGITS. 

BRS IN THE ..SYMCK.. ROUTINE, PUTS SEQUENCE NUMBER ..SEON.. AND REFERENCE 

DEFINITION INDEX ..REDEI.. INTO THE SYMBOL TABLE. RESTORES DIGIT 
COVERED BY MOVING THE SYMBOL TABLE FOR ENTRY AND RETURNS TO MAINLINE 
SECTION. 

8RV IN THE ..SYMCK.. ROUTINE, ENTERS LABEL INTO SYMBOL TABLE. EXITS TO 

• • BRS* • • 

BTREF SETS ..REDEI.. TO REFERENCE CARD. EXITS TO ..STATNO.. WITH RETURN 

TO ..READ... 

CALSYS OUTPUTS ..ASTMSG.. AND CALLS SYSTEM EXECUTIVE. 

CFLAG SETS UP ..FLAG.. TO CLEAR FLAGS IN THE FIRST H POSITIONS OF THE 

INPUT BUFFER ..CHI.. FOR A COMPARE. N IS TRANSMITTED WITH THE CALL. 
CHI THE INPUT BUFFER. 100 ALPHA CHARACTERS. 

CKDEC IN THE ..PUTTST.. ROUTINE, CHECKS FOR DECIMAL AND MOVES FIRST 

CHARACTER OUT OF BUFFER AREA ..CHI... EXIT TO ..CNUM.. FOR DECIMAL. 

Ill 



EXIT TO ..PUTTST+24.. FOR NON-DECIMAL, 
CKNUM— -IN THE ..PUTTST,. ROUTINE,' CHECKS FOR NUMERIC, MOVES FIRST 

CHARACTER OUT OF BUFFER AREA ..CHI.. AND EXITS TO . . PUTTST+24. . FOR 

NUMERIC. EXITS TO ..PUTV.. FOR NON-NUMERIC. 
CKNV IN THE ..STATNO.. ROUTINE, CHECKS FOR NUMERIC. EXITS TO ..INT.. FOR 

NUMERIC. MOVES FIRST CHARACTER OUT OF BUFFER AREA AND EXITS TO 

..STATNO.. FOR NON-NUMERIC. 
CLOUT IN THE ..OUTP., ROUTINE, BLANKS THE OUTPUT BUFFER ..OUT.. AND 

RETURNS TO MAIN LINE. 
CLSCAN MOVES LEADING BLANKS OUT OF BUFFER AREA ..CHI.. AND CHECKS FOR 

..DATA.. STATEMENT. EXIT TO ..NO DATA.. OR ..DATACK... 

CNT USED FOR COUNTING OR TEMPORARY STORAGE OF 2 DIGITS. 

CNUM IN THE ..PUTTST.. SUBROUTINE. CHECKS FOR END OF STATEMENT. IF 

NOT, EXIT TO ..CNUMI.., OTHERWISE, TO . .PUTTST+42 . . INDIRECT. 

..PUTTST+42.. IS NORMALLY ..READ.. BUT . IN THE CASE OF AN~IF~, IT IS 

ALTERED TO ..IFRET... 
CNUMI IN THE ..PUTTST.. SUBROUTINE. IF NUMBER, EXIT TO ..NUMB.., IF 

~E~, MOVE~E~ AND SI GN OUT AND THEN EXIT TO . .PUTTST+24. . , 

OTHERWISE EXIT TO . .CKNUM+24. . . 
COM IN COMMON I/O ROUTINE ..RESTO... IF COMMA, EXIT TO . .RESTG+1 2 . . . 

IF RIGHT PARENTHESIS, EXIT TO ..ECHK... IF LEFT PARENTHESIS, EXIT TO 

. .RESTO + 12. . . 

COMA IN ..DGTEST.. ROUTINE. CHECKS FDR ' A COMMA' BE FORE " LEFT PAREMTflESIS 

INDICATING A —DO — . IF LEFT PARENTHESIS, EXIT TO ..ARITH... IF 
COMMA, SET .. KEDEI.. TO REFERENCE AND EXIT TO ..STATNO.. WITH RETURN 
TO ..ARITH.., OTHERWISE, EXIT TO . . DOTEST+24. . . 

COi'ilQ DETERMINES TYPE OF STATEMENT BY FIRST LETTER. — C~ COMMON EXIT TO 

..READ.., — R~ READ EXIT TO ..INPUT.., — S— SEGMENT EXIT TO 
..SEGLST.., OTHERWISE OUTPUT STATEMENT SO SET ..REDEI.. TO REFERENCE 
AND EXIT TO ..STATNO.. AND RETURN TO SET ..REST.. TO REFERENCE AND 
EXIT TO ..RESTU... 

CONT EXIT TO ..NUM.. FOR NON-CONTINUATION CARD. EXIT TO ..READ.. FOR 

CONTINUATION OF FORMAT. ANY OTHER CONTINUATION, MOVE CHARACTERS TO 
NON-NUMBER AND EXIT TO ..RESTO... 

CSYS RECORD CONTAINING INSTRUCTIONS AND DISK CONTROL FIELD FOR CALLING 

SYSTEM EXECUTIVE. 

CTST CHECKS FIRST LETTER OF STATEMENT FOR — C— . NOT EQUAL, EXIT TO 

..TRA.., OTHERWISE, CHECK SECOND CHARACTER FOR AN — — . IF EQUAL, 
EXIT TO ..READ... IT IS A CONTINUE OR CONTROL. 

DATA SETS ..REDEI.. TO DEFINITION, MOVES —DATA,-- OUT OF BUFFER AREA AND 

EXITS TO ..PUTTST.. TO GET VARIABLE INTO SYMBOL TABLE. ON RETURN, ALL 
SUBSCRIPTS AND DATA ARE SKIPPED TO SECOND SLASH THEN NEXT VARIABLE IS 
PULLED ..PUTTST.., ETC. FINAL EXIT IS TO ..READ.. THROUGH DETECTION 
OF END OF STATEMENT IN ..PUTTST... 

DATACK COMPARE THE FIRST 5 CHARACTERS IN THE BUFFER ..CHI.. TO --DATA, — . 



EXIT TO ..DATA.. IF EQUAL, EXIT TQ ..NOOATA.. IF UNEQUAL. 
DATASP ALPHA CONSTANT --DATA,— USED IN ..DATACK... 

DCF DISK CONTROL FIELD USED FOR READING SOURCE STATEMENTS FROM DISK. 

DCFS DISK CONTROL FIELD USED FOR READING SYSTEM EXECUTIVE FROM DISK. 

DOTEST ROUTINE FOR TESTING FOR —DO--. EXIT TO ..ARITH.. IF FIRST 

CHARACTER IS NOT A — D— , OTHERWISE EXIT TO ..COMA... 
OWN CONTAINS THE SIZE OF THE SYMBOL TABLE SHIFT FOR EACH TIME THROUGH' 

..SYMCK.. 15 FOR A NEW ENTRY OR 5 FOR THE ENTRY OF A SEQUENCE NUMBER 

ONLY. 

E EXIT TO ..VAR0T1 + 2A-.. TO PICK UP MULTIPLE DEFINITION OF LAST VARIABLE 

IN SYMBOL TABLE THE FIRST TIME THROUGH. THE SECOND TIME THROUGH, EXIT 
IS TO ..EOUT... 

ECHK IN THE I/O ROUTINE ..RESTO.. CHECKS TO SEE IF THERE ARE ANY MORE 

VARIABLES IN THE LIST, IF NONE LEFT EXIT TO ..READ.., IF ONLY ONE 

EXIT TO ..RESTO.., IF MORE THAN ONE EXIT TO ..SPCHA... 
END PUTS BLANK FIELD AT THE END OF THE SYMBOL TABLE TO ALLOW 

IDENTIFICATION OF THE END IN OUTPUT. 
EOUT OUTPUTS LAST LINE FOR BOTH VARIABLES AND STATEMENT NUMBERS. EXITS 

TO ..VAROT.. FOR STATEMENT NUMBER, TO ..EOUT+12.. FOR VARIABLE. 
EQCHK ROUTINE FOR CHECKING TYPE OF STATEMENT BY ARRANGEMENT OF SPECIAL 

CHARACTERS, 1ST - COMMON OR I/O EXIT TO ..COMIO.. THEN= ARITHMETIC 

EXIT TO ..ARITH.. = 1ST IS ARITHMETIC OR DO EXIT TO ..OOTEST.. NO, 0R= 

EXIT'TO ..ETEST.. FOR FURTHER CHECKING. SETS FORMAT INDICATOR ..ETEST.. 

TO NON FORMAT SETS LEFT PAR INDICATOR ..A2.. OFF. 
ETEST CHECKS FIRST LETTER OF STATEMENT FOR — E— IF LOW EXIT TO ..CTST.. 

IF HIGH EXIT TU ..ITEST.. IF — E — CHECKS FOR AVOID IN 4TH POSITION IF 

NO, EXIT TU ..TRAC. IF YES, EXIT TO ..END.. 

FIF CONTAINS ADDR ESS . . F I F+6. . OF STATEMENT NUMBER IN TEMPORARY AREA. 

FIN IN ..FLAG.. ROUTINE CHECKS FOR DUNE. IF DONE, BRANCH BACK. IF NOT, 

RETURN TO ..FLaG+12.. AND CONTINUE. 
FINISH IN..STATNO.. ROUTINE MOVES STATEMENT NUMBER 6 FROi-i TEMPORARY AREA 

INTO ..SCAN.. AND CLEARS FLAGS. SETSUP ..SYMCK.. FOR STATEI-.ENT NUMBER 

CHECK AND EXITS TO ..SYMCK... 
FLAG RESTORES FLAGS IF ENTERED FROM ..RFLAG.. OR CLEARS FLAGS IF ENTERED 

FROM ..CFLAG.. IN THE INPUT BUFFER ..CHI... 
FRMTS CHECKS FOR EXACT SPELLING OF FORMAT. EXIT TO ..NONFR.. IF NOT 

FORMAT. SET FORMAT INDICATOR ..FTEST,. AND EXIT TO ..READ.. FOR 

FORMAT. 

FRMTSP ALPHA SPELLING OF FORMAT. 

FTEST MOVES BLANK OUT OF INPUT BUFFER ..CHI... EXIT TO ..LARRY... 

GO INCREASES DISK CONTROL FIELD FOR NEXT READ. EXIT TO ..STER.. IF 

INVALID STATEMENT. IF COMMENT CARD, OUTPUTS FIRST EXIT TO 

..READ.. EXIT TO ..SEQ.. FOR NON-COMMENT. 

HDWR ALPHA MESSAGE- HDWR ERR LAB INDX 

HDWKt OUTPUT HARDWARE ERROR .. HDWR. . AND CALLS SYSTEM. 



HTYP HANDLES HOLLERITH FIELDS IN THE DATA STATEMENT, SKIPS OVER THE 

CHARACTERS IN HOLLERITH DATA. • 
IF PLACES AVOID AFTER LAST RT. PAR. AND SETS RETURN FROM ..PUTTST., TO BE 

..IFRET.. EXITS TO ..STOPIF... 
IFRET RESTORES RETURN IN ..PUTTST.*, MOVES AVOID OUT OF BUFFER ..CHI.. 

EXITS TO ..IFS... 

IFS PULLS STATEMENT NUMBERS FROM-IF- BY WAY OF ..STATNO.. EXIT IS THROUGH 

..STATNO.. TO ..READ... 

) 

INPUT SETS UP ..RESTO.. ROUTINE FOR INPUT STATEMENTS AND PULLS FORMAT 

NUMBER, EXIT TO ..RESTO... 
INT IN. .STATNO.. ROUTINE. INITIALIZES TEMPORARY ADDRESS ..FIF+6.. AND 

..SCAN.. AND CHECKS FOR END OF STATEMENT NUMBER. EXIT TO ..FINISH.. 

FOR END OF STATEMENT NUMBER OTHERWISE TO ..FIF... 
ITEST COMPARES FOR -I- AS FIRST CHARACTER. EXIT TO ..RTEST.. IF HIGH. 

TO ..IF.. IF EQUAL. OTHERWISE -GO TO- EXIT TO ..BTREF.. IF COMPUTED 

-GO TO- PULL STATEMENT NUMBERS OF COMPUTED GO TO AND INDEX WITH EXIT 

TO ..READ... 

LEADBL PUTS ADDRESS OF FIRST NON-BLANK CHARACTER IN . .LEADBL+23 . . . EXIT 

TO ..READ.. FOR BLANK CARD. OTHERWISE EXIT TO ..CLSCAN... 

LIN2 SETS RETURN TO ..LIN3.. FOR SECOND TIME THROUGH ENTRY IN TABLE IN 

• • SQ • • • 

LHM3 ENTERED AFTER SECOND TIME THROUGH TABLE ENTRY. OUTPUTS FIRST PART 

□ F OUTPUT AND SETS UP FOR OUTPUT "OF" l^lJLrTPL'E"DEFlNIT ION LIME.- EXIT 
TO ..LIN4+12... 

LIN4 OUTPUTS MULTIPLE DEFINITION LINES WHEN FULL. EXIT TO ..SQl... 

LPAR IN..EOCHK.. ROUTINE CHECKS FOR LEFT PAR. 

MEM CONTAINS CORE SIZE 

NODATA RESTORES FLAGS IN BUFFER AFTER ..DATACK.. WHEN NOT A DATA STATEMENT. 

NGNFR RESTORES FLAGS IN BUFFER AFTER ..FRMTS.. WHEN NOT-FORMAT- . 

NUM CHECKS FOR LEADING STATEMENT NUMBER. IF NONE, EXIT TO ..EQCHK.. 

OTHERWISE PULL STATEMENT NUMBER AND EXIT TO ..FTEST... 
NUMB — IN ..PUTTST.. ROUTINE MOVES NUMBER OUT OF BUFFER, IF END OF 

STATEMENT EXIT TO . . PUTTST+36. . OTHERWISE EXIT TO ..CNUM... 

OK IN ..SYMCK.. ROUTINE, MOVES DOWN SYMBOL TABLE TO MAKE ROOM FOK ENTRY. 

OUT OUTPUT BUFFER. 

OUTAD CONTAINS ADDRESS IN SYMBOL TABLE BEING LOOKED AT DURING BREAKDOWN 

FOR OUTPUT. 

OUTP OUTPUT ROUTINE, OUT PUTS .. OUT . . AND THEN FILLS ..OUT.. WITH BLANKS. 

CHECKS FOR PAGE OVERFLOW. 
PRI IN ..OUTP.. ROUTINE PUTS RECORD MARK AFTER LAST CHARACTER AND PRINTS 

LINE. 

PRINT IN ..OUTP.. ROUTINE CHECKS FOR PAGE OVERFLOW.- 

PUT IN ..SYMCK.. ROUTINE, ENTRY POINT FOR NEW ENTRY AT BOTTOI-; OF TABLE. 

PUTTST ROUTINE TO PULL VARIABLES AND SKIP OVER FIXED AND FLOATING POINT 

NUMBERS. 



PUTV PART OF ..PUTTST.. ROUTINE TO HANDLE VARIABLES. IN COMBINATION WITH 

..AA.. PUTS VARIABLE IN ..SCAN., AND EXITS TO ..SYMCK... 
PUTl IN. .SYMCK.. IS BRANCH POINT FOR PUTTING SEQUENCE NUMBER IN TABLE 

WHERE LABEL IS ALREADY IN TABLE. 

PUT2 IN ..SYMCK.. HANDLES ACTUAL ADJUSTMENT OF SYMBOL TABLE ADDRESSES. 

EXITS TO ..BRV.. FOR LABEL AND SEQUENCE NUMBER, TO ..BRS.. FOR 

SEQUENCE NUMBER ONLY. 

PUT3 IN ..SYMCK.. SETS UP FOR MOVING SYMBOL TABLE, IF NECESSARY. 

READ READS SOURCE STATEMENT FROM DISK AND CHECKS FOR HARDWARE ERROR. 

EXIT TO ..GO.. IF NO ERROR, EXIT TO ..HDWRE.. IF ERROR. 
REDEI REFERENCED, DEFINED INDICATOR. 1 INDICATES THAT THE USE OF 

STATEMENT NUMBER OR VARIABLE IS DEFINITION, INDICATES A REFERENCE 

USE. 

REST CONTAINS THE NORMAL CONDITION OF THE ..REDEI.. FOR HANDLING I/O 

STATEMENTS. 

RESTO IN-I/O ROUTINE THIS RESTORES THE ..REDEI.. TO ITS NORMAL STATE AFTER 

THE HANDLING OF A SPECIAL CASE, SUCH AS SUBSCRIPTS WHICH ARE 
REFERENCED IN A ..READ.. STATEMENT THAT HAS DEFINED AS ITS NORMAL 
STATE. 

RFLAG SETS UP ..FLAG.. TO RESTORE FLAGS IN THE FIRST N POSITIONS OF THE 

INPUT BUFFER ..CHI.. AFTER A COMPARE. N IS TRANSMITTED WITH THE CALL. 

RTEST CHECKS FIRST LETTER OF STATEMENT FOR AN — R— . EQUAL EXIT TO 

..BTREF.. FOR READ STATEMENT WITH NO LIST. IF A— P~ EXIT TD " 
..BTREF.. FOR PRINT OR PUNCH WITH NO LIST. IF — T~ EXIT TO ..BTREF.. 
FOR TYPE WITH NO LIST. IF — S — EXIT TO ..SEGLST.. FOR SEGMENT 
STATEMENT. OTHERWISE GO TO ..READ... 

SCAN WILL CONTAIN STATEMENT NUMBER OR VARIABLE WHEN ENTERING ..SYMCH.. TU 

CHECK SYMBOL TABLE. 

SEGLST SETS ..REDEI.. TO DEFINEU FOR SEGMENT STATEMENT AND STARTS LOUP TO 

PULL SEGMENT NUMBERS IN ..STATND... 

SEQ BRANCH POINT FOR NON-COMMENT CARD FKIIM ..GO... 

SEQN CONTAINS CARD SEQUENCE NUMBER. 

SHIFT IN HOLLERITH ROUTINE ..HTYP.. THIS MOVES ..CHI.. DOWN BY ONE 

CHARACTER. 

SPCHA IN COMMON I/O ROUTINE ..RESTO.. CHECKS FOR AN EQUAL SIGN. IF NON- 
SPECIAL CHARACTER EXIT TO ..ECHK+12... IF AN EQUAL SIGN SET UP ..REDEI.. 
FOR IMPLIED DO INDEX DEFINITION AND EXIT TO ..REST0+I2.. OTHERWISE 
EXIT TO ..RESTO... 

SO IN OUTPUT ROUTINE HANDLES SEQUENCE NUMBER OUTPUT. CHECKS FOR END OF 

TABLE IN SEARCH. 1ST TIME THROUGH CHECKS FOR REFERENCES. 2ND TIME 
THROUGH CHECKS FOR MULTIPLE DEFINITIONS. 

SQl PUTS SEQUENCE NUMBER IN OUTPUT AREA. 

STATNO— START OF SUBROUTINE TU SEARCH SYMBOL TABLE FOR ENTRY AND ENTER 

EITHER LABEL OR SEQUENCE NUMBER OR BOTH. 
STER WRITES ERROR MESSAGE ..STERR.. AND CALLS SYSTEM. 

lis 



STERR ALPHA MESSAGE- NO INDEXt *HOLD SHOULD FOLLOW *CODE. 

STNAD CONTAINS THE ADDRESS OF THE BOTTOM OF THE STATEMENT NUMBER SYMBOL 

TABLE. 

STNO BRANCH POINT FOR OUTPUT OF STATEMENT NUMBERS. CHECKS FOR END OF 

TABLE. 

STOPIF PUTS AVOID IN PLACE OF LAST ) IN IF STATEMENT FOR PULLING 

VARIABLES AND ALTERS ..PUTTST.. TO RETURN TO ..IFRET.. ON HITTING 
AVOID. 

SUB SUBTRACTS 14 FROM ..SYMCK+U.. TO BYPASS LAST LABEL CHECKED AND ONE 

SEQUENCE NUMBER IN TABLE FOR FURTHER CHECKING. 
SYMCK CHECKS FOR LABEL ENTRY WHILE SEARCHING TABLES. 

S2 BRANCH POINT. ALSO SUBTRACTS 5 TO SKIP OVER SEQUENCE NUMBERS IN 

SEARCH OF TABLE. 

TEST COMPARES ..SCAN.. TO LABEL IN TABLE. IF MATCH EXIT TO ..PUTl.. TO 

ENTER SEQUENCE NUMBER. BECAUSE OF ORDERING CAN EITHER CONTINUE SEARCH 
..SUB.. OR ENTER LABEL ..PUT3... 

TRA EXIT TO ..READ.. IF FIRST CHARACTER IS A — D— . IF —A— EXIT TO 

..BTREF.. ACCEPT WITH NO LIST. IF — T~ IS 6TH CHARACTER EXIT TO 
..READ.. BEGIN TRACE. IF 6TH CHARACTER IS — P— EXIT TO ..STATNO.. FUR 
BEGIN PROCEDURE OTHERWISE EXIT TO ..BTREF.. FOR BEGIN SEGMENT. 

TRAC IF 4TH CHARACTER IS A — T~ EXIT TO ..READ.. FOR END TRACE. 

OTHERWISE TO ..BTREF.. FOR END SEGMENT, EXECUTE PROCEDURE, OR END 
PROCEDURE. - 

VA CHECKS FDR 1ST DEF I N IT I ON I IM OUTPUT SECTION EXIT TO ..VDEF.. IF FOUiMD. 

EXIT TO ..VDEF+24.. IF END OF TABLE OR NEXT LABEL REACHED. 

VAR ALPHA MESSAGE FOR OUTPUT. 

VARAD CONTAINS ADDRESS OF BOTTOM OF VARIABLE SYMBOL TABLE. 

VAROT ADJUSTS OUTPUT SECTION FOR OUTPUT OF VARIABLES. 

VAROTl RETURN IN OUTPUT SECTION TO START ON NEXT LABEL. 

VDEF PUTS 1ST DEFINITION IN OUTPUT BUFFER AND SAVES ADDRESS TO START 

SEARCH FOR MULTIPLE DEFINITION. 
VI PUTS LABEL IN OUTPUT BUFFER, BLANKS LEADING ZEROS, AND RESTORES COUNT 

FOR OUTPUT OF SEQUENCE NUMBERS. 
ZEREND ZEROS TOP OF CORE FOR SYMBOL TABLES, ADJUSTS FOR CORE SIZE, AND 

SEEKS FOR 1ST SOURCE CARD. 
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END 






02348 








02400 




DORG 


»-3 














02410 


* 


END TRACE - IGNORE 




02348 


14 


06 1 39 


00063 


02420 


T RAC 


CM 


CHI+6 


,63 , 


1 


02360 


46 


00800 


01200 


02430 




BE 


READ 














02440 


* 


OTHERWISE END 


SEGMENT 












02450 


« 


OR EXECUTE PROCEDURE 












02460 




OR END PROCEDURE 




02372 


15 


06451 


00000 


02470 


BTREF 


TDM 


REDEI 


,0 




02384 


17 


03196 


60800 


02480 




BTM 


STATNO 


,REA0 












02490 




IF D 


CHECK FOR 


DO 




02396 


14 


06133 


00044 


02500 


DOTEST 


CM 


CHI 


,44 , 


10 


02408 


47 


04142 


01200 


02510 




BNE 


ARITH 






02420 


11 


06446 


00062 


02520 




AM 


ADR 


,2 , 


10 


02432 


45 


02452 


06446 


02530 




BNR 


COMA 


,ADR , 


11 


02444 


49 


04142 


00000 


02540 




B 


ARITH 






02452 








02550 




DORG 


«-3 
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w 
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02560 


02452 


14 


06446 


00024 


02570 


02464 


46 


04142 


01200 


02580 


02476 


14 


06446 


000S3 


02590 


02488 


*T 1 


C\ 9A 9n 


1 200 


02600 






0645 1 


00000 


02610 


02512 


-J 




©4142 


02620 


02 524 


14 


06 133 


UUU*f9 


02630 


U c J o 


47 


n 9 R ft n 
U C.O ou 


1 200 


02640 


02 548 


14 


HA 1 "^t^ 


Ann Ji A 
uuu^o 


02650 










02660 


O P RAH 




n nft nn 
UUo UU 


1 200 


02670 










02680 


025 72 


49 


n 9 7 9 


uuuuu 


02690 


D oU 








02700 










02710 


02580 


46 


UUoUU 


01100 


02720 


02592 


14 


06 133 


00041 


02730 










02 740 


02604 


46 


0237 2 


1 200 


02750 


02616 


14 


06 14 3 


00063 


02760 










02770 


02 62 8 


46 


UUoUU 


1 200 


027 80 


02 640 


14 


06 14 3 


000^7 


02790 










02800 


02652 


HI 


0237 2 


1 200 


028 10 










02820 


2664 


15 


0645 1 


0000 1 


Uao 30 


02676 


]^ y 


03196 


VjKJO u u 


n 9 ft An 

U c. O *tU 


n 9 Aft ft 
U C o o o 


1 ^. 

i T- 


HA "{ 'X'X 

uo i J 


UUU*t V 


028 50 




46 


n "^n ft ft 
u 3U oo 


nil nn 
u i JL uu 


02 86 


9 7 17 


*rO 


n 9 ft 9 n 

UiC O ^1 U 


n 1 9nn 

U i iCUU 


n 9 O 7 A 
Uc o f u 


n p 79 A 
u ^ r *T 


1 U 

i *T 


06 14 1 


UUUC*T 


n 9 ft ft A 










A 9 QQ A 

Uii o 7 U 


0273 6 


*T / 


n 9 "^7 9 


n 1 9 An 
U JL ^uu 


A 9 Q A A 

Uc V UU 










029 1 


02 74 8 


1 R 
X 


UOH9 i 


uuuuu 


A 9 Q 9 A 


n 7A n 


1 7 
i 1 


1 OA 
U:5 i Vo 


n 9 *77 9 


029 30 


\J c. f f c. 


1 Zl 


HA 1 ^ ' 
UO i J 3 


UUUt7*f 


02 940 


02 784 


47 


02760 


1 200 


029 50 


ri 9 7 Q A 


i -> 


HAA^ 1 
UOH9 i 


UUUUU 


029 60 


n 9 ft n ft 
u ^ o u o 


i f 


n "2 9 A 


£in ft n n 
t? U o U U 


029 70 


n 9 ft o n 


"a 1 


n A 1 9 9 
Uo i 


HA 1 9 A 
uo i DO 


A Q ft /"\ 


02 832 


1 6 


n A A 4 ft 

U O *T *T O 


u u ut? u 


A 7 QQ A 
U c W U 


n 9 ft Zl^. 


1 A 
i o 


n aZl A A 
U OH to 


OA 1 "i^^ 
WO I DO 


n "ii A A A 
U 9 UUU 


n o Q c: A 


14 


6446 


00024 


030 1 


n 9 ft A ft 


T- f 


n 9 ft Q 9 


u i ^: uu 


A ^ A 9 A 

U 9U C.U 


n 9 ft ft r\ 


1 1 


0644 8 


000& 1 


030 30 


^1 9 ft Q 9 


14 


06446 


UOUtr^ 


03040 


02904 


47 


2940 


1 200 


03050 


029 16 


12 


06448 


00081 


03060 


0292 8 


46 


02960 


1 200 


03070 


0294 


1 1 


06446 


r\ A r\ £1 T 
UUUad: 


U 30 oU 


02 952 


49 


28 56 


00000 


03090 


02 96 








031 00 










3110 


n 9 Q A n 


9 A 


AZt A A 


010 2 3 


03120 


n 9 Q 7 9 


1 1 


A A A A 
U 0*T M- O 


U U Ut? JL 


A ^ 1 A 
U 3 i 9 U 


02 984 


26 


03039 


06446 


031 40 










03150 


n 9 QQ A 


1 A 
i o 


r"! '-^ K A ft 

U J 9 O o 


t7 3U i o 


A 1 A A 

u 9 i ou 


03008 


49 


04 166 


u U VJ u u 


n ^ 1 70 

U J i ( u 


H"^ n 1 A 

U 5 U i o 








A 1 ft A 
U 9 JL o U 










3190 


030 1 6 


16 


0356 8 


ftOft no 


3200 


03028 


3 1 


06 1 32 


06 1 34 


03210 










A 9 90 
U 9 <1 AU 


03040 


1 R 
i 


n AA ^ 1 

u 0*+ -J i 


uuuuu 


A 9 A 
U 9 <^ 9 U 


u ^ U 9 ^ 


1 7 


31 96 


o 9n S 9 


A ^ 9 AA 
U D <i *tU 










032 50 


n n A^ 




064 5 1 


uu u U i 


03260 


030 76 


1 7 


3196 


30 5 2 


32 70 


U ^ U o o 


14 


061 33 


00059 


03280 










A 9 Q r\ 
U ^^iV U 


031 00 


46 


02372 


1200 


A Tl O A ri 

33UU 


Voile 




riA 1 "a^i 

Uo i OD 


00057 


03310 










A '^'^ 9n 

U 9 9 ^u 


u :5 i 


A A 
HO 


n 9 o 7 9 

U £1 ^ f 


n 1 9An 
u i ^uu 


A Q Q -2 A 

U 999 U 


03136 


1 A 




0006 3 


03340 










A 99 A 
U 99 9U 


n 1 Aft 


A A 


n 9 7 9 


o 1 9nn 
u i ^ uu 


A "^9 A A 
U 9 90 U 


031 60 


1 A 
iH 


uo i 39 


U UUO ^ 


A 99 7 A 
U 9 9 f U 


03172 


46 


03064 


01200 


03380 


03184 


49 


00800 


00000 


03390 










03400 










03410 










03420 


03196 


45 


03216 


06133 


03430 



LABEL MNEM OPERANDS AND REMARKS 





IF , 


BEFORE ( IT 


IS A DO 




COMA 


CM 


ADR 


»24 


,610 




BE 


ARITH 








CM 


ADR 


»23 


,610 




BNE 


DOTEST+24 








TDM 


REDEI 


»o 






BTM 


STATNO 


, ARITH 




CTST 


CM 


CHI 


»43 


, 10 




BNE 


TRA 








CM 


CHI + 2 


>56 


,10 




IGNORE CONTINUE 


OR CONTROL 






BE 


READ 








OTHERWISE - CALL 


SEGMENT 






B 


BTREF 








DORG 


*-3 






* 


IGNORE DIMENSION 






TRA 


BH 


READ 








CM 


CHI 


,41 


,10 


•» 


ACCEPT WITH NO LIST 






BE 


BTREF 








CM 


CHI+10 


,63 


,10 


«- 


BEGIN 


TRACE - IGNORE 






B E 


READ 








CM 


CHI+10 


,57 


,10 


* 


BEGIN 


SEGMENT 








BNE 


BTREF 






* 


BEGIN 


PROCEDURE 








TDM 


REDEI 


, 1 






BTM 


STATNO 


, READ 




ITEST 


CM 


CHI 


,49 


, 10 




BH 


RTEST 








BE 


IF 








CM 


CHI + 8 


, 24 


, 10 




GO TO 


S 








BNE 


BTREF 






« 


GO TO 


(S1,S2),N 








TDM 


REDEI 








BTM 


STATNO 


, *+12 






CM 


CHI 


, 04 


, 10 




BNE 


«-24 








TDM 


REDEI 








BTM 


PUTTST 


, READ 




I F 


TR 


CHI-1 


, C H I + 3 






TFM 


CNT 




» 10 




TFM 


ADR 


,CHI 






CM 


ADR 


,24 


,610 




BNE 


*+24 








AM 


CNT 


»I 


,10 




CM 


ADR 


,04 


,610 




BNE 


*+36 








SM 


CNT 


»1 


,10 




BE 


STOPIF 








AM 


ADR 


,2 


,10 




B 


IF + 36 








DORG 


*-3 






•» 


PUT AVOID IN FOR 


CLOSING ) 




STOP I F 


TF 


ADR ,BA2+23 


,6 






AM 


ADR 


,1 


, 10 




TF 


IFS-1 


, ADR 






ALTER 


PUTTST FOR 


RETURN 






TFM 


PUTTST+42 


, IFRET 






B 


ARITH+24 








DORG 


*-3 






* 


RESTORE PUTTST 






I F RET 


TFM 


PUTTST+42 


,READ 






TR 


CHI-1 


,CHI+1 




* 


PULLS 


STRING OF 


ST. NO. 




I FS 


TDM 


REDEI 








BTM 


STATNO 


, IFS+12 




* 


PULLS 


STRING OF 


SEG. NO. 




SEGLST 


TDM 


REDEI 


,1 






BTM 


STATNO 


, IFS+12 




RTEST 


CM 


CHI 


,59 


,10 


ft 


READ 


WITH NO LIST 






BE 


BTREF 








CM 


CHI 


,57 


,10 


* 


PRINT 


OR PUNCH WITH NO LIST 






BE 


BTREF 








CM 


CHI 


,63 


,10 




TYPE 


WITH NO LIST 






BE 


BTREF 








CM 


CHI ,62, 10 








BE 


SEGLST 








B 


READ 








SUBROUTINE TO PULL ST, NO. 




STATNC 


1 BNR 


CKNV 


,CHI 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM OPERANDS 


AND REMARKS 




03208 


49 


00800 


00000 


03440 




B READ 








03216 








03450 




DORG *-3 
















03460 


» 


SKIP OVER NON-NUMERICS 






03216 


14 


06133 


000?0 


03470 


CKNV 


CM CHI 


, 70 




,10 


03228 


46 


03270 


01300 


03480 




BNL INT 








03240 


31 


06132 


06134 


03490 




TR CHI-1 


,CHI+1 






03252 


49 


3196 


00000 


03500 




B STATNO 








03260 








03510 




DORG »-3 
















03520 


« 


INITIAI T7F 








03269 




00010 




03525 


NUMR 


DC 10 








03270 


16 


03356 


03260 


03530 


INT 


TFM FIF+6 


, NUMR-9 




f 10 


03282 


26 


03269 


05979 


03540 




TF NIIMR 


, BLK 






03294 


26 


06461 


05979 


03550 




TF ^TAM 
in o H IN 


, BLK 






03306 


45 


03326 


06133 


03560 




RNR F T F— ?4 


, CH I 






03318 


49 


03394 


00000 


03570 




D F T M Q M 
D r 1 IN n 








03326 








03580 




DORG »-3 








03326 


14 


061 33 


000?0 


03590 




CM CHI 


,70 




,10 


0333 8 


47 


03394 


01300 


03600 




BL FINSH 
















03610 


« 


PUT ST. NO. IN 


50 






03350 


25 


03260 


06133 


03620 


F I F 


TD NUMR-9 


,CHI 






03362 


1 1 


03356 


00091 


03630 




AM »-6 


,1 




.in 


03374 


31 


06132 


06134 


03640 




TR CHI-1 


,CHI+1 






03386 


49 


03306 


00000 


03650 




B INT+36 








03394 








03660 




DORG «-3 
















03670 




PUT ST. NO. IN 


SCAN 






03394 


32 


03260 


00000 


03680 


F INSH 


SF NUMR-9 








03406 


26 


06462 


03356 


03690 




TF SCAN+1 


, FIF+6 




, 1 1 


03418 


32 


06458 


eoooo 


03700 




SF SCAN-3 






,7 










03710 


* 


ADDRESSES REFERENCE BOTTOM 












03720 




OF TABLES 








03430 


33 


06461 


eoooo 


03730 




CF SCAN 






,7 


03442 


33 


06460 


eoooo 


03740 




CF SCAN-1 






,7 










03750 


•ft 


ADDRESS OF ST. 


NO. TABLE 






03453 




00005 




03760 


STNAD 


DC 5 


,38985 




, * 


03454 


33 


06459 


eoooo 


03770 




CF SCAN-2 






,7 










03780 


« 


ADDRESS OF VARIABLE TABLE 




03465 




00005 




03790 


VARAD 


DC 5 


,38980 




,* 


03466 


33 


06457 


00000 


03800 




CF SCAN-4 








03477 




00005 




03810 


OUTAD 


DC 5 


,39000 




,* 










03820 


■» 


SET RANGE TO BE 


CHECKED 


IN 


SYM. 


03478 


16 


04201 


eoooo 


03830 


A 


TFM SYMCK+U, 








03490 


26 


04221 


03453 


03840 




TF S2-1 


, STNAD 














03850 


« 


TRANSFER RETURN 


ADDRESS 






03502 


26 


04189 


03195 


03860 




TF SYMCK-1 


,STATNO- 


1 




03514 


49 


04 190 


00000 


03870 




B SYMCK 
















03880 


« 


















03890 




SUBROUTINE TO PULL FX. PT., 


FLT 










03900 


it 










03526 


26 


04 189 


0352 5 


039 10 


PUTTST 


TF SYMCK-1 


,PUTTST- 


1 




03 538 


26 


06461 


05979 


03920 




TF SCAN 


,BLK 






0355 


45 


03570 


061 33 


03930 




BNR CKDEC-24 


,CHI 






03562 


49 


00800 


00000 


03940 




B READ 








03570 








03950 




DORG *-3 








03570 


14 


06 133 


00041 


03960 




CM CHI 


,41 




,10 


03582 


46 


03750 


01300 


03970 




BNL CKNUM 
















03980 


•M- 


CHECK FOR DECIMAL 






03594 


14 


06 133 


00063 


03990 


CKDEC 


CM CHI 


,03 




,10 


03606 


31 


06132 


06134 


04000 




TR CHI-1 


,CHI+1 






03618 


47 


03550 


01200 


04010 




BNE PUTTST+24 
















04020 


■ft 


FLT. PT. NO. BECAUSE OF 


DECIMAL 


03630 


45 


03650 


06133 


04030 


CNUM 


BNR CNUMl, CHI 








03642 


49 


0356fi 




04040 




B7 PUTTST+42 


,,6 






03650 


14 


06 133 


000?0 


04050 


CNUMl 


CM CHI, 70, 10 








03662 


46 


037 18 


01300 


04060 




BNL NUMB 








03674 


14 


061 33 


00045 


04070 




CM CHI 


,45 




,10 


03686 


47 


03774 


01200 


04080 




BNE CKNUM+24 








03698 


31 


06132 


06136 


04090 




TR CHI-1 


,CHI+3 






03710 


49 


03550 


00000 


04100 




B PUTTST+24 








03718 








04110 




DORG »-3 








03718 


3 1 


06 132 


06134 


04120 


NUMB 


TR CHI-1 


,CHI+1 






03730 


45 


036 30 


061 33 


04130 




BNR CNUM 


,CHI 






03742 


49 


03562 


00000 


04140 




B PUTTST+36 








03750 








04150 




DORG *-3 








03750 


14 


06133 


000?0 


04160 


CKNUM 


CM CHI 


»70 




,10 










04170 




LETTER - GO TO 


PUT VARIABLE 




03762 


47 


03794 


01300 


04180 




BL PUTV 








03774 


31 


06132 


06134 


04190 




TR CHI-1 


,CHI+1 






03786 


49 


03550 


00000 


04200 




B PUTTST+24 








03794 








04210 




DORG «-3 
















04220 




















04230 




VARIABLE 








03794 


16 


03812 


e6453 


04240 


PUTV 


TFM »+18 


,SCAN-8 






03806 


26 


00000 


06133 


04250 




TF 


,CHI 






03818 


12 


03812 


oooei 


04260 




SM »-6 


,1 




,10 


03830 


33 


03812 


00000 


04270 




CF »-18 


, 




,6 


03842 


11 


03812 


00063 


04280 




AM »-30 


,3 




»10 


03854 


31 


06132 


06134 


04290 




TR CHI-1 


,CHI+1 






03866 


45 


03886 


06133 


04300 




BNR AA 


,CHI 







TAB. LOOKUP 



PT. + VARIABLES 
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03878 


49 


03934 


00000 


04310 




B 


AA+48 


03886 








04320 




DORG 


«-3 


03886 


14 


06133 


00041 


04330 


AA 


CM 


CHI ,41 ,10 


03898 


46 


03806 


01300 


04340 




BNL 


PUTV+12 


03910 


14 


06133 


oooeo 


04350 




CM 


CHI , ,10 


03922 


46 


03854 


01200 


04360 




BE 


. PUTV+60 


03934 


32 


06452 


00000 


04370 




SF 


SCAN-9 










04380 




SET RANGE FOR SYM. TAB. LOOKUP 


03946 


26 


04201 


03453 


04390 




TF 


SYMCK+11 ,STNAD 


03958 


26 


04221 


03465 


04400 




TF 


S2-1 ,VARAD 


03970 


49 


04190 


00000 


04410 




B 


SYMCK 










04420 
















04430 




SUBROUTINE TO CLEAR FLAGS FOR COMPARE 


03982 


16 


04043 


00033 


04440 


CFLAG 


TFM 


FLAG+13 ,33 ,10 


03994 


26 


04017 


03981 


04450 




TF 


RFLAG-1 ,CFLAG-1 


04006 


49 


04030 


00000 


04460 




B 


FLAG 










04470 


» 














04480 


•tt 


SUBROUTINE TO RESTORE FLAGS AFTER COMPAR 


04018 


16 


04043 


00092 


04490 


RFLAG 


TFM 


FLAG+13 ,32 ,10 


04030 


16 


04048 


66134 


04500 


FLAG 


TFM 


»+18 ,CHI+1 


04042 


41 


00000 


00000 


04510 




NOP 




04054 


11 


04048 


00061 


04520 




AM 


FLAG+18 ,1 ,10 


04066 


45 


04104 


04046 


04530 




BNR 


FIN , FLAG+18 ,11 


04078 


12 


04048 


00061 


04540 




SM 


FLAG+18 ,1 ,10 


04090 


32 


04046 


00000 


04550 




SF 


FLAG+18 , ,6 


04102 


42 


00000 


00000 


04560 




BB 




04104 








04570 




DORG 


«-9 


04104 


11 


04048 


00061 


04580 


FIN 


AM 


FLAG+18 ,1 ,10 


04116 


12 


04017 


oooei 


04590 




SM 


RFLAG-1 ,1 ,10 


04128 


46 


04042 


01100 


04600 




BP 


FLAG+12 


04140 


42 


00000 


00000 


04610 




BB 




04142 








04620 




DORG 


«-9 










04630 


* 


SET INDICATOR TO DEF. FOR LEFT OF = 


04142 


15 


06451 


00001 


04640 


ARITH 


TDM 


REDEI ,1 


04154 


17 


03526 


64166 


04650 




BTM 


PUTTST ,*+12 










04660 


«• 


SET INDICATOR TO REFERENCE FOR RIGHT OF • 


04166 


15 


06451 


00000 


04670 




TDM 


REDEI 


04178 


49 


04154 


00000 


04680 




B 


*-24 










04690 


«■ 














04700 




SUBROUTINE TO CHECK SYMBOL TABLE 










04710 


* 


AND MAKE ENTRIES 


04190 


44 


04210 


00000 


04720 


SYMCK 


BNF 


S2-12 










04730 




FLAG 


INDICATES LABEL ENTRY 


04202 


49 


04254 


00000 


04740 




B 


TEST 


04210 








04750 




DORG 


*- 3 


04210 


14 


04201 


60000 


04760 




CM 


SYMCK+11 










04770 




CHECK 


FOR BOTTOM OF RANGE 










04780 




IF THERE PUT IT IN TABLE 


04222 


46 


04354 


01200 


04790 


S2 


BE 


PUT 


04234 


12 


04201 


00065 


04800 




SM 


SYMCK+11 ,5 ,10 


04246 


49 


04190 


00000 


04810 




B 


SYMCK 


04254 








04820 




DORG 


*-3 


04254 


11 


04201 


00069 


04830 


TEST 


AM 


SYMCK+11 ,9 ,10 


04266 


24 


0420i 


06461 


04840 




C 


SYMCK+11 ,SCAN ,6 










04850 


•a- 


LABEL 


IN TABLE, ENTER SEO. NO. 


04278 


46 


04374 


01200 


04860 




BE 


PUTl 










04870 


* 


CHECK 


MORE 
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C4D TEST DECK 



THE TEST DECK WAS DESIGNED TO ILLUSTRATE MOST OF THE FEATURES OF C4D. 
THE PROGRAMS DIAGS. FMTLG AND UDV ARE EXAMPLES OF DIAGNOSTICS IN THE 
PRE-COMPILE, COMPILE, AND RUN PHASES, RESPECTIVELY. TESTI AND TEST 2 MAKE 
USE OF THE RELOCATABLE SUBROUTINES AND TEST INTEGER AND FLOATING POINT 
ARITHMETIC. TESTI IS SEGMENTED SO THAT IT WILL FIT IN A 20K MACHINE. 



C4D TEST DECK -JANUARY 20, 1967 

»CODE TESTI* 

COMMON NWORD,MAXNR,NFST,NLAST,NBUF (10) , XBUF (1 ) , NAMET 
DIMENSION AMULT(5,5) ,BMULT( 5,5) , YNV ( 5 , 5 ) ,CNV ( 5 ) , NAME ( 5 ) 
CONTROL 102 
TYPE 12 
READ 6,K 
REREAD 2,I,X 
PRINT 9,I,X,J 
CALL SEGMENT 9000 

1 F0RMAT(5F15,8) 

2 F0RMAT(I15,F15.8,I15) 
6 FORMAT (115) 

8 F0RMAT(5E15,8) 

9 FORMAT (5HH0 ,3A5) 

10 FORMAT( 5(I5,F5.1)/5(I5,F5.1) ) 

12 FORMAT (41HTURN SENSE SWITCH 4 ON FOR TRACE IN TEST2) 
SEGMENT 9000,9100,9150,9200 
BEGIN SEGMENT 9000 
PRINT 9005 
NWORO =10 
MAXNR=2 
NFST=1 
NLAST=2 

9001 N=MOVE(0) 

DO 9002 1=1,10 
NBUF(I) =1 

9002 XBUFd )=I 
N=M0VE(1) 

DO 9003 1=1,10 
NBUFd )=0 

9003 XBUFd )=0. 
K=M0VE(-1) 

9004 PRINT 10, (NBUF (I ) ,XBUF(I ) ,1=1, 10) 
DO 9101 1=1, NNV 

DO 9101^ J=13lNNV _ ___ _ _____ 

Xi = l - ' " - - - ----- - - 

XJ = J 

YNVd,J)=l./(XI+XJ-l.) 
9101 BMULTd ,J)=YNV (I ,J) 
CALL SEGMENT9100 

9005 FORMAT ( /52HSEGMENT 9000 TESTS DISK DATA STORAGE UNDER THE !«OVE , 
1 7HR0UTINE/) 

END SEGMENT 9000 
BEGIN SEGMENT 9100 
PRINT 910 2 

EXECUTE PROCEDURE 6100 
CALL SEGMENT 9150 
BEGIN PROCEDURE 5100 



C INVERTS MATRIX -YNV- OF ORDER -NNV- IF -YNV- IS SIimGULAK THE 

C ERROR MESSAGE INVERT IS PRINTED AhiD THE VARIABLE -NOSOL- IS 

C SET-TO ZERO OTHERWISE -NOSOL- IS SET TO ONE AND THE INVERSE 

C IS STORED IN -YNV- MAIN PROGRAM MUST DIMENSION CNV(MNV) 

C YNV (NNV, NNV) AND NAME (NNV) 



N0S0L=1 

00 5101 INV=1,NNV 
5101 NAMEdNV) = INV 

DO 5113 INV=1,NNV 

CMAX=0, 

JNV=INV 

DO 5103 KNV=INV,NNV 

IF (ABSF(CMAX)-ABSF (YNVdNV.KNV) ) ) C, 5103, 5103 
JNV=KNV 

CMAX=YNV( INV,KNV) 
5103 CONTINUE 

IF (CMAX) 5106, C,5106 
PRINT 5105 
NOSOL =0 
RETURN 5100 

5105 FORMAT (6HINVERT) 

5106 IF (INV-JNV) C,5109,C 
KNV=NAME{ INV ) 

NAME ( INV )=NAME ( JNV) 

NAME ( JNV)=KNV 

DO 5108 LNV=1,NNV 

TNV=YNV(LNV,INV) 

YNV (LNV, INV )=YNV{LIMV, JNV) 

5108 YNV (LNV , JNV )=TNV 

5109 YNV ( INV, INV )=1. 
DO 5110 JNV=1,NNV 

5110 YNV ( INV, JNV) =YNV (INV, JNV) /CMAX 
DO 5113 JNV=1,NNV 



IF (INV-JNV) C,5il5»C 
TNV»YNV<JNV,INV) 

DQ &1M KNV«1,NNV 

5112 YNV( JNV,KNV>«V*IV{JNVtKNV)-TNV*yNV( INVi^llVi 

5113 CONTINUE 

DO 5119 .MNV=1,NNV 
IF(NAME(MNV)-MNV) Ci 5119,0 

5114 DO 5115 JNV=1,NNV 

5115 CNV(JNV)=YNV(MNVtJNV) 
JJNV3MNV+1 

DO 5116 JNV=JJNV,NNV 

IF (NAME (JNV)-MNV) 5116,5117,5116 

5116 CONTINUE 

5117 NAME(JNV)=NAM£(MNV) 
DO 5118 KNV=1,NNV 
YNV(MNV,KNV)»YNV( JNVtKNV) 

5118 YNV(JNV,KNV)=CNV(KNV) 

5119 NAME(MNV)=MNV 

END PROCEDURE 5100 
9102 FORMAT (/43HSEGMENT 9100 INVERTS A NEAR-SINGULAR MATRIX/) 
END SEGMENT 9100 
BEGIN SEGMENT 9150 
PRINT 9152 
MMULT = NNV 
KMULT = NNV 
NMULT = NNV 

EXECUTE PROCEDURE 5200 
DO 9151 1=1, NNV 
9151 PRINT 1, (AMULTd , J) ,J = 1, NNV) 



CALL SEGMENT 9200 
BEGIN PROCEDURE 5200 
C MULTIPLIES MATRIX -BMULT- BY MATRIX -YNV- AND STORES PRODUCT 

C IN -AMULT-. SIZE OF BMULT IS -MMULT-»-KMULT- AND SIZE Of 

C CMULT IS -KMULT-*NMULT-. MAIN PROGRAM MUST DEFINE VALUES 

C OF -MMULT-,-KMULT-,-NMULT-, AND DIMENSION MATRICES AS 

C FOLLOWS- AMULT(MMULT, NMULT), BMULT ( MMULT , KMULT ), AND 

C CMULT (KMULT, NMULT). THE USE OF THE VECTOR FORM OF 

C THESE ARRAYS IN THE PROCEDURE IS PERMISSIBLE IN C4D 



MN = MMULT * NMULT 
MK = MMULT « KMULT 
DO 5202 IMULT = 1 , MMULT 
KJ = 1 

DO 5202 IJ = IMULT, MN, MMULT 
SMULT = 0. 

DO 5201 IK = I MULT, MK, MMULT 

_SMULT_ ^ Sl^-iULT + BMULT ( I K )«_YNV ( K JJ _ 

5201 KJ = KJ + 1 " " ~ " " " " ■ 

5202 AMULTd J) = SMULT 
END PROCEDURE 5200 

9152 F0RMAT(/54HSEGMENT 9150 MULTIPLIES THE MATRIX BY ITS INVERSE AMU , 

1 19HLiISPLAYS THE RESULT/35HNOTE THE ERROR FROM PROPAGATION OF , 

2 9HR0UND OFF/) 
END SEGMENT 9150 
BEGIN SEGMENT 9200 
PRINT 9202 

DO 9201 1=1,10 
EXECUTE PROCEDURE 6000 

9201 XBUF ( I )=SND 

PRINT 8,(XBUF(I ),I=1,10) 
N=LINK(NAMeT) 
BEGIN PROCEDURE 6000 
C GENERATES A STANDARD NORMAL DEVIATE -SND- 

SUSND=0 

DO 6001 J=l,12 
SNDX=NPRF ( IBEG) 
6001 SUSNO=SUSND+SNDX 

SNU = 0.00001*SUSND - 5.99994 
END PROCEDURE 6000 

9202 FQRHAT(/51HSEGMENT 9200 GENERATES STANDARD NORMAL DEVIATES BY , 
1 23HSUMMING RANDOM INTEGERS/) 

END SEGMENT 9200 

DATA,NNV/5/ NAMET/5HTEST2/ IBEG/4321/J/2HH0/ 

END 

«HOLD TESTIS 
*COUE TEST2* 

COMMON NW0RD,MAXNR,NFST,NLAST,NBUF(10) ,XBUF(10),NAMET 
DIMENSION E{10),F(10),G(10),FUNCT(10) 
DIMENSION VALUE(10),ARG(10) 
DIMENSION CNT(4) 

1 FORMAT (5F15.8) 

2 FORMAT ( 1 15, F 15. 8, 1 15) 

3 FORMAT (5 1 15) 

4 FORMAT (/5A5/) 

5 FORMAT (//, 

10X,1HX,10X,6HSIN(X) ,10X,6HC0S(X) , lOX ,6HTAN(X ) / lOX , IHX, lOX , 

1 6H£XP(X) , 10X,7HEXP(-X)/10X,1HX,10X,6HL0G(X) ,9X,8HL0G10(X)/10X, 

2 IHX, 10X,7HSQRT(X)/10X,1HX, 10X,7HATAN(X) ,7X,13HL0G10(TAN(X) )//) 

7 F0RMAT(/13H THIS IS THE ,A3,25H OF THE 4 LOOPS OF DO 130/) 

8 FORMAT (5E15. 8) 
C0NTR0L971 
PRINT 9301, NAME T 

9301 FORMAT (A5, 18H TESTS SUBROUTINES/) 
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BEGIN TRACE F15.3 

N = 19 

D011I=2,6 

K = MOD{N/I ) 
11 X = K » 1 

END TRACE 
20 READ1,XZER0,XMAX,DELX 

PRINT 5 
200 X=XZERO 
30 X1=SIN(X) 

X2=C0SF(-X) 

X3 = SIN(X)/(C0S(X) ) 

X4=EXP{X) 

X5=£XP(-X) 

X6 =ALOGF (X ) 

X7=X6/A 

X8=SQRT(X) 

X9=ATAN(X) 

X10=ALDG(X3)/A 

PRINT1,X,X1,X2,X3 

PRINT1,X,X4,X5 

PRINTl,XtX6,X7 

PRINT1,X,X8 

PRINT1,X,X9,X10 

IF(X-XMAX) 40,50,50 
40 X=X+DELX 

GQ TO 30 
50 REAUl, A, B,C,D 

READ 4,IMLH1,NLH2,NLH3,NLH4,IMLH5 

PRINT4,NLH1,NLH2,NLH3,NLH4tNLH5 

Al=A+B-C+D 

A2=A«6*C«0 

A3=A/B 

A4=A*«(-B) 

A5=A/(-b) 

A6=A**(B+2. )*C 

A7=(A*B)/(C«D) 

A8=A/C»B/D 

PRINT1,A1 ,A2,A3,A4 

PRINT1,A5,A6,A7,A8 

D6=A**(Il) 

D7 = A*<i-(-Il) 

Z=Z**0 .5 

PRINTI ,06,07 ,Z 

DO 60 1=1, 10,5 

RE AO 8,F ( I) ,F (I+l) ,F (1+2) ,F( 1+3) ,F{ 1+4) 

60 CONTINUE 

DU 29 J=l, 10,2 --- -- 

READl ,G ( J ) ,G ( J+1 ) 

29 CONTINUE 

OG 61 1=1, 10,5 

E ( I ) = ( SIN(F ( I ) )**2) + (CUS(F(I ) )->«2) 
DO 55 J=l,10,3 
F ( I )=J 
PRINTI, F (I ) 
l<=G( J) 
PRIiMTl,£ ( I) 
PRIiMT 2,J,G(J),K 
55 CONTINUE 

61 CONTINUE 

DO 47 J=l, 10,2 
REA01,ARG(J) ,ARG( J+1) 

47 CONTINUE 

00 48 L=l, 10,5 

READl , VALUE ( L ) , VALUE ( L+ 1 ) , VALOE ( L + 2 ) , 
lVALUE(L+3) ,VALUE(L+4) 

48 CONTINUE 

DO 49 L=l, 10,5 

REa01,FUNCT(L) ,FUNCT{L+l),FUNCT(L+2),FUNCT(L + 3) ,FUlvCT(L+4) 

49 CONTINUE 

00 63 J=l, 10 
DO 70 L=l, 10 

IF(aRG(J)-VALUE(L) ) 70,65,70 
65 PRINTI ,ARG ( J ) ,FUnCT ( L) 
70 CONTINUE 
63 CONTINUE 

CONTROL 953 

00 130 M=l,4 

PRINT7,CNT(M) 

GO TO (90, 100, 110, 120 ) ,M 
90 01=SIN( A)*CaS(B) 
100 02=SIN(A)«*(C0S(B) ) 

110 D3=SQRTF( (SINF(A)**2. ) + ( COS F ( A ) *«2 . ) ) 
120 PRINTI, A, B, 01, D2, 03 

EXECUTE PROCEDURE 300 
130 CONTINUE 

READ 4,NXH1 ,NXH2 

C0NTR0L102 

PRINT4,NXH1 ,NXH2,NLH4,NLH5 

READ3,I2,I3,I4 

15=12+13+14 

16=15-14 

I7=I2»I3 

ISl 



I8=I2*I3«I4 
I9-I4/I3 

C NOTE -1- IS DEFINED BY DO 61 1=1,10,5 

J1«I2+I3+(I3*I4)/I 
PR1NT3,I2,I3,I4 
PRINT3,I5,I6,I7,I8,I9,J1 
STOP555 

BEGIN PROCEDURE 300 
C A TO NEAREST 1/16, B TO NEAREST INTEGER, 02 TO NEAREST 0.0001 

Al=0.0625«DRH(A*16.+.5> 
A2=DRH(B+.5J 

D2=0. 000 1»DRH( 02*10000.+. 5 ) 
PRINT!, A1,A2,D1, 02 

END PROCEDURE 300 

DATA,Il/2/Z/0./CNT(l)/3HlST /CNT ( 2) /3H2ND /CNT ( 3 ) /3H3RD/ 

DATA,CNT(4) /3H4TH / A/2 . 302585 1 / X/ . / 

END 

*HOLD TEST2+ 
*CODE DIAGS* 

COMMON A, A 

DIMENSION Y(2) 

RETURN 3 

END SEGMENT 1 
ICONTINUATION CARD FIRST CARD OF STATEMENT 

DO 12 J=l, 

STOP 

A=C0S(1) 
B=NABS(J) 
3 READ 4,A,B,C,D,E 

3 F = E 

BEGIN SEGMENT 5 
I=J+1 ) 

GO TO 1212121 
2 GO TO J 
118 1=1 

DO 18 1=1,2 
DO 19 J=l,3 
18 CONTINUE 

DO 123 JK=1,4 
123 GO TO 3 

8 DO 8 JL=1,5 
DO 1,1=1,2 
A=1..2 

NOW = J E ANN IE 
DIMENSION ZX(12) 
ZX(B)=0. 

PIi-lENSION P(l,2,3) 

DIMENSIUN R (K ) ' ' - ^ - . . . 

EQUIVALENCE (A,b) 
CALL BAA(A)-B 
1 GO TU 1 

9 1 = 1 
/ C = l 

DU 4 I=1,N 
BEGIN TRACE A3. 2 
BEGIN TRACE 15.7 
N = 2*I 

4 CONTINUE 
ACCEPT 3, A 

READ 3, IZXd )I=1,3) 
COMMON X 
PRINT J,K 
END SEGMENT 5 
11 FORMAT (15) 
DO 22 M=1,KQ 
L(L)=A 

READ 3, (ZX(N),N=l,a«) 
7878 FURMAT (13)14 
279 FORMAT (3H 13) 

EXECUTE PROCEDURE 3000 
CALL SEGMENT 8000 
1T=A-B 

A = A — B*»C+ ( ) 

Y=10. 

A = b-J 

4533 IF (GARBAGEPAILISQUITEFULL)4,5 
DIMENSION DD( (2) ) 
DIMENSION Y(3) 
GO TO 4 
J=l 

DIMENSION COSF (20) 
ABSF (5 )=2. 
100 F0RMAT(100F2.0) 
DATA, A/1/ 
DATA, A/6HABCDEF/ 
DATa,X/1. 
DATA,I/1HAB/ 
DATA,Y( I )/3.0/ 
DATA, A/ 
END 

»RUN DIAGS+ 
♦CODE UDV 217 + 
1=1 + 1 

.18 



END 

«RUN UDV 217 + 
«-CODE FMTLG + 

READ 1,1 
1 FORMAT (50H 



5 OH 
50H 
5 OH 
50H 



END 

TEST1+ 
4856000000 

.40000000 
1. 11100000 



.00560000 
.80000000 
2.22200000 



FLOATING POINT ARITHMETIC 



.llOOOOOOE 01 
,00000000E-50 
2. 10000000 
3.30000000 
2.50000000 
2.70000000 
2.90000000 
5 .00000000 
24.00000000 
39.00000000 
44.00000000 
50.00000000 
1.00000000 
6.00000000 
1. 10000000 
6.10000000 



INTEGER 



22 



.22000000E 01 
.17000000E 01 
2.20000000 
2.40000000 
2.60000000 
2.80000000 
3.00000000 
10 .00000000 
11.00000000 
17.00000000 
41 .00000000 
1.00000000 
2.00000000 
7 .00000000 
2. 10000000 
7.10000000 



11 



.20000000 
3.33300000 



.33000000E 01 
.18000000E 01 



3.00000000 
8.00000000 
3.10000000 
8. 10000000 



33 



I 16 : 



4.44400000 



,14000000E 01 
.19000000E 01 



, 15000000E 01 
,20000000E 01 



4.00000000 
9.00000000 
4. lOOOOOUO 
9.10000000 



5 .00000000 
10.00000000 

5. 10000000 
10. 10000000 



*CUT TESTl* 
*CUT TEST2T 
■-DISK + 
*CODE MLM 

DIMENSION A( 10 ) ,B( 50 ) ,C ( 100 ) , fl ( 100 ) , G ( 2 00 , 2 ) 
1 = 1 
J = 2 
EiMD 



'DATE SYSTEM 
SYSTEM LOAD 



This is the output obtained by running the 
Test Deck with output to the Printer. 



•DISK 

SYSTEM LUAD 

000 
64000 



•SRS 16 
SYSTEM LOAD 



'CGUE TESTl 


SYSTEM 


LOAD 


07650 




07650 




07650 




07662 




07686 




07722 




07770 




07830 




07842 


1 


07884 


2 


07916 


6 


07938 


8 


07980 


9 


08030 


10 


08096 


12 


08202 




08216 




08240 




08252 




08264 




08276 




08288 


9001 


08312 




08336 




08372 


9002 


08492 




08516 




08540 




08576 


9003 


08672 




08720 


9004 


08900 




08924 




08 948 




08984 




09020 




09140 


9101 


09404 




09416 


9005 


09416 




09576 




08216 




08240 




08252 




08264 




08292 


C 


08292 


C 


08292 


C 


08292 


C 


08292 


C 


08292 




08304 




08328 


5101 


08424 




08448 




08460 




08472 




08496 





C0MM0NNW0RD,MAXNR,(\1FST,NLAST,NBUF( 10) ,XBUF ( 10 ) .tMAMFT 
CONTROL 102'''^'"^ (5,5), BMULT { 5, 5 ) , YNV ( 5 , 5 ) , CMV ( 5 ) , tv Af'iE ( 5 ) 
TYPE12 
READ6,K 
REREAD2,I ,X 
PRINT9 ,1 ,X , J 
CALLSEGMENT9000 
F0RMAT(5F15.8 ) 
FORMAT! 115, F15. 8, 115) 
FORMAT (115) 
FORMAT (5E 15.8) 
F0RMAT(5HH0 ,3A5) 
FORMAT( 5( I5,F5. l)/5 (I5,F5. 1 ) ) 

';9?.!;'l^J,l^l^^'''URN SENSE SWITCH 4 ON FOR TRACr IN TEST?) 
SE(,MENT9000,9100,9150,9200 < ^1 

BEGINSEGMENT9000 
PRINT9005 
NWGRD=10 
MAXNR=2 
NFST=1 
NLAST=2 
N=MOVE (0 ) 
D09002I=1, 10 
NBUF ( I )=I 
XBUF { I)=I 
N=M0VE ( 1 ) 
0090031=1,10 
NBUF ( I )=0 
XBUF ( I)=0. 
K=M0VE{-1) 

PRINTIO, (NBUF( I ) ,XBUF( I) , 1=1, 10) 
0091011=1, NNV 
D09101J = 1,(VJNV 
XI = I 
XJ = J 

YNV ( I , J) = l./ (XI+XJ-1. ) 
BMULT( I , J )=Yl\IV( I , J) 
CALLSEGMENT9100 

1 ''°§^!;?^,',■^^?^2HSEG^iENT 9000 TESTS DISK DATA STORAGE UNDER THE MOVE , 
1 7HR0UTINE/) 
ENDSEGMENT9000 
BEGINSEGMENT9100 
PRINT9102 

EXECUTEPR0CEDURE5100 
CALLSEGMENT9150 
BEGINPR0CEUURE5100 

INVERTS MATRIX -YNV- OF ORDER -NNV- IF -YNV- IS SINGULAR THE 
tRROR MESSAGE INVERT IS PRINTED AND THE VARIABLE -NOSOL- IS 
SET TO ZERO OTHERWISE -NOSOL- IS SET TO ONE AND THE INVERSE 
IS STORED IN -YNV- MAIN PROGRAM MUST DIMENSION CNV<Ni\lV) 
YNV(NNV,NNV) AND NAME(NNV) 

N0S0L=1 

D05101INV=1,NNV 
NAME ( INV)=INV 
D05113INV=I,NNV 
CMAX=0. 
JNV=INV 

D05103KNV=INV,NNV 

IF(ABSF(CMAX)-ABSF(YNV{ INV , KNV ))) C , 5103 , 5103 



noo 1 

00 02 
00 3 
00 U4 
0005 
00 06 
00U7 
0008 
00 9 
00 10 

00 i 1 
0C12 

001 3 
0014 
(101 5 
0016 
0017 
0U18 
00 19 
00 20 
00 2 1 
0022 
0023 
0024 
0025 
0026 
00 2 7 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
00 3 5 
0036 
00 3 7 
0038 
00 3 9 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
00 51 
0052 
00 5 3 
00 54 
00 5 5 
0056 
0057 
0058 
0059 
0060 



08652 




08664 




08736 


5103 


08796 




08844 




08868 




08880 




08888 


5105 


08924 


5106 


08972 




09008 




09080 




09116 




09140 




09212 




09356 


5108 


09488 


5109 


09560 




09584 


5110 


09800 




09824 




09872 




09944 




10016 




10040 


5112 


10340 


5113 


10460 




10484 




10556 


5114 


10580 


5115 


10748 




10784 




10808 




10900 


5116 


10960 


5117 


11032 




11056 




11200 


5118 


11368 


5119 


11464 




11472 


9102 


1 1 R Q 9 




08216 




08240 




08252 




08264 




08276 




08288 




08312 


9151 


08552 




08564 




08592 


C 


08592 


C 


08592 


C 


08592 


C 


08592 


C 


08592 


C 


08592 


C 


08592 




08628 




08664 




08688 




08700 





JNV=KNV 0061 

CMAX=YNV( II\iV,KNV) 0062 

CONTINUE 0063 

IF (CMAX)5106,Cf 5106 0064 

PRINT5105 0065 

NOSOL=0 0066 

RETURN5100 0067 

FORMAT (6HINVERT) 0068 

IF ( INV-JNV)C,5109,C 0069 

KNV=NAME( INV) 0070 

NAME ( INV )=NAME ( JNV ) 0071 

NAME ( JNV)=KNV 0072 

D05108LNV=1 ,NNV 0073 

TNV=YNV(LNV, INV) 0074 

YNV(LNV,INV)=YNV(LNV,JNV) 0075 

YNV ( LNV, JNV )=TNV 0076 

YNV(INV,INV)=1. 0077 

D05110JNV=1,NNV 0078 

YNV ( INV, JNV )=YNV( INV, JNV ) /CMAX 0079 

D05113JNV=1,NNV 0080 

IF ( INV-JNV)C,5113,C 0081 

TNV=YNV( JNV, INV) 0082 

YNV( JNV, INV )=0. 0083 

D05112KNV=1,NNV 0084 

YNV(JNV,KNV)=YNV(JNV,KNV)-TNV«YNV( INV,KNV) 008 5 

CONTINUE 0086 

D05119MNV=1,NNV 0087 

IF (NAME (MNV)-MNV)C, 5119, C 0088 

D05115JNV=1,NNV 0089 

CNV( JNV)=YNV(MNV,JNV) 0090 

JJNV=MNV+1 0091 

D05116JNV=JJNV,NNV 0092 

IF (NAME (JNV )-MNV) 5116,5117,5116 009 3 

CONTINUE 0094 

NAME (JNV )=NAME (MNV ) 0095 

D05118KNV=1,NNV 0096 

YNV(MNV,KNV)=YNV(JNV,KNV) 0097 

YNV( JNV,KNV)=CNV(KNV) 0098 

NAME (MNV )=MNV 0099 

ENDPR0CE0URE5100 0100 

F0RMAT(/43HSEGMENT 9100 INVERTS A NEAR-SINGULAR MATRIX/) 0101 

ENDSEGMENT9100 0102 

BEGINSEGMENT9150 0103 

PRINT9152 0104 

MMULT=NNV 0105 

KMULT=NNV 0106 

NMULT=NNV 0107 

EXECUTEPROCEDURE5200 0108 

0091511=1, NNV 0109 

PRINTl, (AMULT( I ,J) , J=1,NNV) 0110 

CALLSE(;MENT9200 0111 

BEGINPROCEUURE5200 0112 

MULTIPLIES MATRIX -BMULT- BY MATRIX -YNV- AND STORES PRODUCT 0113 

IN -AMULT-. SIZE OF BMULT IS -MMULT-*-KMULT- AND SIZE OF 0114 
CMULT IS -KMULT-*NMULT-. MAIN PROGRAM MUST DEFINE VAL0115 
OF -MMULT-,-KMULT-,-NMULT-, AND DIMENSION MATRICES AS 0116 
FOLLOWS- AMULTIMMULT ,NMULT ) , BMULT ( MMUL T , KMULT ), AND 0117 
CMULT(KMULT,NMULT) . THE USE OF THE VECTOR FORM OF 0118 
THESE ARRAYS IN THE PROCEDURE IS PERMISSIBLE IN C4D0119 

MN=MMULT*NMULT 0120 

MK=MMULT»KMULT 0121 

D05202IMULT=1,MMULT 0122 

KJ=1 0123 

D05202I J=IMULT,MN,MMULT 0124 



08724 SMULT=0. 0125 

08736 D05201IK=IMULT,MK,MMULT 0126 

08760 SMULT=SMULT+BMULT(IK)*YNV(KJ) 0127 

08856 5201 KJ=KJ+1 0128 

08952 5202 AMULT ( I J ) =SMULT 0129 

09108 ENDPROCEDURE5200 0130 

09116 9152 F0RMAT(/54HSEGMENT 9150 MULTIPLIES THE MATRIX BY ITS INVERSE AND ,0131 

09116 1 19HDISPLAYS THE RESULT/35HNOTE THE ERROR FROM PROPAGATION OF , 0132 

09116 2 9HRQUND UFF/ ) 0133 

09410 ENDSEGMENT9150 0134 

BEGINSEGMENT9200 0135 

08216 PRINT9202 0136 

08240 0092011=1,10 0137 

08264 EXECUTEPR0CEDURE6000 0138 

08276 9201 XBUF(I)=SNU 0139 

08372 PRINT8, (XBUF( I ) , 1=1, 10) 0140 

08516 N = LINK(NAMET ) 0141 

08540 BEGINPROCEDURE6O0O 0142 

08568 C GENERATES A STANDARD NORMAL DEVIATE -SND- 0143 

08568 SUSND=0 0144 

08604 D06001J=1,12 0146 

08628 SNDX=NPRF ( IBEG) 0146 

08664 6001 SUSND=SUSNU+SNDX 0147 

08760 SND=0.00001«SUSND-5. 99994 0148 

08808 ENDPR0CEDURE6000 0149 

08816 9202 FORMAT( /51HSEGMEIMT 9200 GENERATES STANDARD NORMAL DEVIATES BY , 0150 

08816 1 23HSUMMING RANDOM INTEGERS/) 0151 

09006 ENDSEGMENT9200 0152 

DATA,NNV/5/NAMET/5HTEST2/ IBEG/4321/ J/2HH0/ 0153 

END 0154 



39999 


COS 




39989 


COSF 


3997 9 


SIN 




39969 


SINE 


39959 


EXP 




39949 


EXPF 


39939 


ALOG 




39929 


ALOGF 


39919 


SORT 




39909 


SQRTF 


39899 


ABS 




39889 


ABSF 


39879 


NABS 




39869 


NABSF 


39859 


ATAN 




39849 


ATANF 


39839 


DRH 




39829 


DRHF 


39819 


NPR 




39809 


NPRF 


39799 


MOVE 




39789 


MOVEF 


39779 


MOD 




39769 


MODE 


39759 


SAVE 




39749 


SAVEF 


39739 


LINK 




39729 


LINKF 


39719 


NFIL 




39709 


NFI LF 


39699 


NUPL 




39689 


NUPLF 


39679 


NWORD 




39669 


MAXNR 


39659 


NFST 




39649 


NLAST 


39639 


NBUF 


39549 


39539 


XBUF 39449 


39439 


NAMET 




39429 


AMULT 39189 


39179 


BMULT 


38939 


38929 


YNV 38689 


38679 


CNV 


38639 


38629 


NAME 38589 


38579 


FM 


0012 


38569 


FM 0006 


38559 


K 




38549 


FM 0002 


38539 


I 




38529 


X 


38519 


FM 


0009 


38509 


J 


38489 


SG 


9000 


38479 


FM 0001 


38469 


FM 


0008 


38459 


FM 0010 


38439 


SG 


9100 


38419 


SG 9150 


38399 


SG 


9200 


38389 


FM 9005 


38379 


0000000010 


38369 


0000000002 


38359 


0000000001 


38349 


SN 9001 


38339 


N 




38329 


0000000000 


38319 




000 


38309 


SN 9002 


38299 


SN 


9003 


38289 


SN 9004 


38279 


SN 


9101 


38269 


NNV 


38259 


XI 




38249 


XJ 


38239 


5110000000 


38229 


001 


38219 


FM 


9102 


38199 


PR 5100 


38189 


NOSOL 




38179 


SN 5101 


38169 


INV 




38159 


SN 5113 


38149 


CMAX 




38139 


JNV 


38129 


SN 


5103 


38119 


KNV 


38109 


SN 


5106 


38099 


FM 5105 


38089 


SN 


5109 


38079 


SN 5108 


38069 


LNV 




38059 


TNV 


38049 


SN 


5110 


38039 


SN 5112 


38029 


SN 


5119 


38019 


MNV 


38009 


SN 


5114 


37999 


SN 5115 


37989 


JJNV 




37979 


SN 5116 


37969 


SN 


5117 


37959 


SN 5118 


37949 


FM 


9152 


37939 


MMULT 


37929 


KMULT 




37919 


NMULT 


37899 


PR 


5200 


37889 


SN 9151 


37879 


MN 




37869 


MK 


37859 


SN 


5202 


37849 


IMULT 


37839 


KJ 




37829 


I J 


37819 


SMULT 




37809 


SN 5201 


37799 


IK 




37789 


FM 9202 


37779 


SN 


9201 


37759 


PR 6000 


37749 


SND 




37739 


SUSND 


37729 


SN 


6001 


37719 


0000000012 


37709 


SNDX 




37699 


IBEG 


37689 


4610000000 


37679 


5159999400 



•HOLD TFSTl 
SYSTEM LOAD 



C INVERTS MATRIX -YNV- OF ORDER -NNV- IF -YNV- IS SINGULAR THE 

CARD NO.- LABEL NO. -REFERENCE CARD NUMBERS 



0009 


1 


0110 






0010 


2 


0006 






001 1 


6 


0005 






0012 


8 


0140 






0013 


9 


0007 






0014 


10 


0032 






0015 


12 


0004 






0047 


5100 


0100 


0067 


0045 


0055 


5101 


0054 




0063 


5103 


0060 


0060 


0059 


0068 


5105 


0065 






0069 


5106 


0064 


0064 




0076 


5108 


0073 






0077 


5109 


0069 






0079 


5110 


0078 






0085 


5112 


0084 






0086 


5113 


0081 


0080 


0056 


0089 


5114 








0090 


5115 


0089 






0094 


5116 


0093 


0093 


0092 


0095 


5117 


0093 






0098 


5118 


0096 






0099 


5119 


0088 


0087 




0112 


5200 


0130 


0108 




0128 


5201 


0126 






0129 


5202 


0124 


0122 




0142 


6000 


0149 


0138 




0147 


6 001 


0145 






0016 


9000 


0042 


0017 


0008 


0023 


9001 








0026 


9002 


0024 






0030 


9003 


0028 






0032 


9004 








0040 


9005 


0018 






0016 


9100 


0102 


0043 


0039 


0038 


9 10 1 


0034 


0033 




0101 


9102 


0044 






0016 


9150 


0134 


0103 


0046 


0110 


9151 


0109 






0131 


9152 


0104 






0016 


9200 


0152 


0135 


0111 


0139 


9201 


0137 






0150 


9202 


0136 






CARD NO.- 


VAR. NAME 


-REFERENCE 


CARD NUMBERS 




ABSF 


0060 


0060 




0129 


AMULT 


0110 






0038 


BMULT 


0127 






0062 


CMAX 


0079 


0064 


0060 






»0057 






0090 


CNV 


0098 






0140 


I 


0140 


0139 


0110 0038 0038 






0026 


0026 


0025 0025 0007 






»0137 


0109 


0033 0032 0028 



0030 0029 



0153 


IBEG 


0146 




0124 


IJ 


0129 




0126 


IK 


0127 




0122 


IMULT 


0126 


0124 


0056 


INV 


0085 


0083 






0070 


0069 






*0054 




0153 


J 


0110 


0038 






«0145 


0110 


0091 


JJNV 


0092 




0092 


JNV 


0098 


0097 






0079 


0079 






*0089 


0080 


0031 


K 










»0005 




0128 


KJ 


0128 


0127 






«0123 




0106 


KMULT 


0121 




0096 


KNV 


0098 


0098 






»0084 


0070 




LINK 


0141 




0073 


LNV 


0076 


0075 


0020 


MAXNR 






0121 


MK 


0126 




0105 


MMULT 


0126 


0124 


0120 


MN 


0124 




0087 


MNV 


0099 


0099 




MOVE 


0031 


0027 


0141 


N 










*0027 


0023 


0099 


NAME 


0095 


0093 






»0095 


0072 


0153 


NAMET 


0141 




0029 


NBUF 


0032 








«0025 




0021 


NFST 






0022 


NLAST 






0107 


NMULT 


0120 




0153 


NNV 


0109 


0107 






0073 


0059 






»0110 




0066 


NOSOL 










»0053 






NPRF 


0146 




0019 


NWORD 






0127 


SMULT 


0129 


0127 




»0125 




0148 


SND 


0139 




0146 


SNDX 


0147 




0147 


SUSND 


0148 


0147 






*0144 




0082 


TNV 


0085 


0076 






»0074 




0006 


X 


0007 




0139 


XBUF 


0140 


0032 






»0030 


0026 


0035 


XI 


0037 




0036 


XJ 


0037 




0098 


YNV 


0127 


0097 






0038 








«0097 


0085 



0060 



* OTHER CARDS WHERE VARIABLES ARE DEFINED 



•CODE TEST2 
SYSTEM LOAD 



07650 
07650 
07650 
07650 
07650 
07692 
07724 
07766 
07818 
07818 
07818 
07818 
08240 
08362 
08404 
08428 
08464 
08534 
08546 
08558 
08582 
08630 
08738 
08738 
08798 
08822 
08834 
08858 
08906 
08966 
08990 
09038 
09062 
09098 
09122 
09146 
09182 
09254 
09314 
09374 
09422 
09482 
09550 
09586 
09594 
09666 
09750 
09834 
09894 
09954 
09990 
10026 
10074 
10158 
10242 
10302 
10374 
10446 
10482 
10518 



C0MM0NNWQRD,MAXNR,NFSTtNLAST,NBUF(10) ,XBUF( 10) ,NAMET 
D IMENS lONE ( 10 ) t F ( 10 ) , G( 10 ) t FUNCT ( 10 ) 
OIMEI\ISIONVALUE( 10),ARG( 10) 
DIMENSI0NCNT(4) 
F0RMAT(5F15.8) 



1 

2 F0RMAT(115,Fi5.8f 115) 

3 F0RMAT(5I15) 

4 F0RMAT(/5A5/) 

5 FORMAK//, 

lOX, lHX,10Xf 6HSIN(X) tl0X,6HC0S(X) t 10X,6HTAN(X )/10X,lHX, 

1 6HEXP(X) t 10X,7HEXP(-X)/10X, 1HX,10X,6HL0G(X) ,9X,8HL0G10(X)/10X 

2 1HX,10X,7HSQRT{X)/10X,1HX,10X,7HATAN(X),7X,13HL0G10(TAN(X))// 

7 F0RMAT(/13H THIS IS THE ,A3,25H OF THE 4 LOOPS OF DO 130/) 

8 FORMAT(5E15.8 ) 
C0NTR0L971 
PRINT9301,NAMET 

9301 F0RMAT(A5, 18H TESTS SUBROUTINES/) 
BEGINTRACEF15.3 
N=19 

00111=2,6 
K=M0D(N/I) 
11 X=K*1 

ENDTRACE 
20 READ1,XZER0,XMAX,DELX 
PRINT5 
200 X=XZER0 
30 X1=SIN<X) 
X2=C0SF (-X ) 
X3=SIN(X)/(C0S(X) ) 
X4=EXP (X ) 
X5=EXP(-X) 
X6=AL0GF (X ) 
X7=X6/A 
X8=SQRT(X) 
X9=ATAN(X) 
X10=ALQG(X3)/A 
PRINT1,X,X1,X2,X3 
PRINTl ,X ,X4,X5 
PRINT1,X,X6,X7 
PRINTl, X,X8 
PRINTl, X,X9,X10 
IF (X-XMAX )40,50,50 
X=X+DELX 
GOT030 
50 READ1,A,B,C,D 

READ4,NLH1,NLH2,NLH3,NLH4,NLH5 
PRINT4,NLH1,NLH2,NLH3,NLH4,NLH5 
A1=A+B-C+D 
A2=A»B»C«D 
A3=A/B 
A4=A**(-B) 
A5=A/ (-B) 
A6=A»*{B+2. )*C 
A7=(A*B)/ (C»D) 
A8=A/C«B/D 
PRINTl ,A1 ,A2, A3, A4 
PRINTl, A5,A6,A7,A8 
D6=A«*(I1) 
D7=A**(-I 1) 
Z=Z*»0.5 



40 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
lOXjOOlO 
, 0011 
I 0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 



10554 






10614 






10638 






10842 




60 


10902 






10926 






11022 




29 


11082 






11106 






11262 






11286 






11346 






11406 






11466 






11526 






11610 




55 


11670 




61 


11730 






11754 






11850 




47 


11910 






11934 






12054 






12138 




48 


12198 






12222 






12426 




49 


12486 






12510 






12534 






12650 




65 


12746 




70 


12806 




63 


12866 






12890 






12914 






12974 






13058 




90 


13118 




100 


13202 




110 


13298 




120 


13382 






13394 




130 


13454 






13502 






13514 






13586 






13646 






13694 






13730 






13766 






13814 






13850 


C 




13850 






13946 






14006 






14102 






14114 






14142 


C 




14142 






14214 






14262 






14334 






14406 







PRINTl, D6, 07, Z 0061 

00601=1,10,5 0062 

READS ,F ( I ) ,F ( I + l ) , F ( 1 + 2) ,F( 1 + 3) ,F( 1+4) 0063 

CONTINUE 0064 

D029J=1,10,2 0065 

READ1,G(J),G(J+1) 0066 

CONTINUE 0067 

00611=1,10,5 0068 

E ( I )=(SIN(F ( I ) )»*2)+(C0S( F( I ) )»*2) 0069 

D055J=1,10,3 0070 

F(I)=J 0071 

PRINTl, F(I) 0072 

K=G(J) 0073 

PRINTl, Ed) 0074 

PRINT2,J,G(J),K 0075 

CONTINUE 0076 

CONTINUE 0077 

D047J=1,10,2 0078 

READ1,ARG(J) ,ARG( J+1) 0079 

CONTINUE 0080 

D048L=1,10,5 0081 

RE ADl, VALUE ( L) ,VALUE(L+1) , VALUE (L+2), 008 2 

lVALUE(L+3) ,VALUE(L+4) 0083 

CONTINUE 0084 

D049L=1,10,5 0085 

RE ADl, FUNCT ( L ), FUNCT (L+1), FUNCT (L+2), FUNCT (L+3), FUNCT (L+4) 0086 

CONTINUE 0087 

D063J=1,10 0088 

D070L=1,10 0089 

IF (ARG(J)-VALUE(L) ) 70,65,70 0090 

PRINTl, ARG(J),FUNCT(L) 0091 

CONTINUE 0092 

CONTINUE 0093 

C0NTR0L953 0094 

D0130M=1,4 0095 

PRINT7,CNT(M) 0096 

G0T0(90,100,110,120) ,M 0097 

D1=SIN(A)»C0S(B) 0098 

D2=SIN(A)«»(C0S(B) ) 0099 

D3=SQRTF ( ( SINF( A)«»2. )+(COSF( A)*»2. ) ) 0100 

PRINTl, A, B, 01, D2, 03 0101 

EXECUTEPR0CEDURE300 0102 

CONTINUE 0103 

READ4,NXH1,NXH2 0104 

C0NTR0L102 0105 

PRINT4,NXH1,NXH2,NLH4,NLH5 0106 

READ3,I2,I3,I4 0107 

15=12+13+14 0108 

16=15-14 0109 

17=12*13 0110 

I8=I2»I3*I4 0111 

19=14/13 0112 

NOTE -I- IS DEFINED BY DO 61 1=1,10,5 0113 

Jl=I2+I3+( I3*I4)/I 0114 

PRINT3, 12, 13,14 0115 

PRINT3,I5,I6,I7,I8, I9,J1 0116 

ST0P555 0117 

BEGINPR0CEDURE300 0118 

A TO NEAREST 1/16, B TO NEAREST INTEGER, D2 TO NEAREST 0.0001 0119 

A1=0.0625«DRH( A»16.+.5) 0120 

A2=DRH(B+.5) 0121 

D2=0.0001*DRH(D2*10000.+.5) 0122 

0123 
0124 



PRINTl, A1,A2, 01, D2 

ENDPROCEDURE300 



14414 DATAt i i/2/Y/O./CN i ( 1 j /3H1ST /CNT ( 2 »/3H2N0/CNr i 3 ) /3H3KU/ Oi.^^ 

DATA,CNT( 4) /3H4TH/ A/2. 3025851 /X/0./ 0126 



^ QQQQ 


r n Q 




39989 


COSF 


3997 9 


SIN 


39969 


S INF 


*a QQRQ 


EXP 




39949 


EXPF 


39939 


ALOG 


3 9929 


ALOGF 


^ W i V 


SQRT 




39909 


SQRT F 


39899 


ABS 


39889 


ABSF 


39879 


NABS 




39869 


NABSF 


3 9859 


ATAN 


39849 


ATANF 


39839 


DRH 




370 £7 


DRHF 


398 1 9 


NPR 


39809 


NPRF 


a Q7QQ 


MOVE 




39789 


MOVEF 


39779 


MOD 


3 9769 


MODF 


J 7 f 3 7 


SAVE 




39749 


SAVEF 


39739 


L INK 


39729 


L I NKF 


O Q"7 1 Q 
37 ( l7 


NFIL 




39709 


NFI LF 


39699 


NUPL 


3 9689 


NUPLF 


3 70 f V 


NWORD 


39669 


MAXNR 


39659 


NFST 


39649 


NLA ST 


39639 


NBUF 


39549 


39539 


XBUF 39449 


39439 


NAMET 


39429 


E 39339 


39329 


F 


39239 


39229 


G 39139 


39129 


FUNCT 39039 


39029 


VALUE 38939 


38929 


ARG 


38839 


38829 


CNT 38799 


38789 


FM 0001 


3 8779 


FM 0002 


•a Q 7 A O 
3 o 1 O 7 


FM 


0003 


38759 


rn 0004 


38749 


rM OOOp 


387 39 


FM 0007 


30 1 <: V 


FM 


0008 


387 19 


rM 9301 


38709 


N 


3 8699 


OOOOOOOO 1 9 


386 89 


SN 


0011 


3867 9 


T 
1 


3866 9 


UUUUUUUUU i. 


3865 9 


UUUUUUUUU^^ 


38649 


0000000006 


^ £1 A ^ o 


IS 


3862 9 


000 


3 8619 


X 


3 OO U 7 


SN 


0020 


38 599 


V 7 CD n 
A £ CKU 


38589 


XMA X 


38579 


DE LX 


fl R AO 
3 O _J O 7 


SN 


0200 


30 3 37 


or* UU3U 


3 8549 


XI 


3 8539 


X2 


Q O C o O 


X3 




38519 


002 


38509 


X4 


38499 


X5 


O 0/i.QQ 
3 OS-O 7 


X6 




"3 a A7a 


V 7 
A 1 


3 8469 


A 


3 8459 


X 8 


38449 


X9 




38439 


X 10 


38429 


SN 0040 


384 19 


SN OOdO 


3 8409 


8 




38399 


c 


38389 


D 


38379 


NLHl 


38369 


NLH2 




38359 


NLH3 


38349 


NLH4 


38339 


NLH5 


38329 


Al 




38319 


A2 


38309 


A3 


38299 


A4 


38289 




001 


38279 


A5 


38269 


A6 


38259 


5 1 20000000 


38249 


A7 




38239 


003 


38229 


A8 


38219 


06 


38209 


1 1 




38 199 


D7 


38189 


Z 


38179 


5050000000 


38 169 


SN 


0060 


38159 


0000000010 


38149 


0000000005 


38139 


SN 0029 


38129 


J 




38 1 19 


SN 0061 


38109 


SN 0055 


38099 


0000000003 


38089 


SN 


0047 


38079 


SN 0048 


38069 




38059 


SN 0049 


38049 


SN 


0063 


38039 


SN 0070 


38029 


SN 0065 


38019 


SN 0130 


3 8 009 


M 




37999 


UUUUUUUUUH 


3 7 989 


UUVU 


3 7979 




37969 


SN 


0110 


37959 


SN 0120 


37949 


01 


37939 


D2 


37929 


D3 




37909 


PR 0300 


37899 


NXHl 


37889 


NXH2 


37879 


12 




37869 


13 


37859 


14 


37849 


15 


37839 


16 




37829 


17 


37819 


18 


37809 


19 


37799 


Jl 




37789 


4962500000 


37779 


5216000000 


37769 


4710000000 


37759 


5510000000 













•HOLD TEST2 
SYSTEM LUAD 



NOTE -I- IS DEFINED BY DO 61 1=1,10,5 



CARD NO, 

0005 

0006 
0007 
0008 
0009 
0013 
0014 
0022 
0024 
0067 
0027 
0043 
0080 
0084 
0087 
0045 
0076 
0064 
0077 
0093 
0091 
0092 
0098 
0099 
0100 
0101 
0103 
0026 
0118 
0117 
0017 



- LABEL NO. -REFERENCE CARD NUMBERS 



1 

2 
3 
4 
5 
7 
8 
11 
20 
29 
30 
40 
47 
48 
49 
50 
55 
60 
61 
63 
65 
70 
90 
100 
110 
120 
130 
200 
300 
555 
9301 



0101 0091 0086 0082 0079 0074 0072 0066 006 1 OOt 
0045 0041 0040 0039 0038 0037 0024 

0115 0107 
0104 0047 0046 



0123 
0056 
0075 
0116 
0106 
0025 
0096 
0063 
0020 



0065 
0044 
0042 
0078 
0081 
0085 

0042 0042 

0070 

0062 

0068 

0088 

0090 

0090 0090 0089 

0097 

0097 

0097 

0097 

0095 

0124 0102 
0016 



CARD NO.- VAR. NAME-REFERENCE CARD NUMBERS 



0126 



0079 



0120 

0121 

0050 
0051 
0052 
0053 
0054 
0055 
0045 



ALOG 

ALOGF 

ARG 

ATAN 
Al 

A2 

A3 
A4 
A5 
A6 
A7 
A8 
B 



0120 
0052 

«0045 
0036 
0032 
0091 

»0079 
0035 
0123 

«0048 
0123 

*0049 
0056 
0056 
0057 
0057 
0057 
0057 
0121 



0101 0100 0100 0099 0098 0059 0058 0055 0054 0053 
0051 0050 0049 0048 0036 0033 



0090 



0056 
0056 



0101 0099 0098 0055 0054 0053 0052 0051 0050 0049 



0045 
0126 



0045 
0024 

0098 
0122 

0100 
0058 
0059 
0069 

0071 

0086 

0066 

0068 

0125 
.0107 
0107 
0107 
0108 
0109 
0110 
0111 
0112 
0088 

0114 
0073 

0089 



0095 

0019 

0046 
0046 
0046 
0046 
0046 
0104 
0104 



0083 
0126 



0024 
0024 
0027 



c 


0055 


0054 


0053 


CNT 


0096 






COS 


*0125 


0125 


0125 


0099 


0098 


0069 


CQSF 


0100 


0028 




5 


0055 


0054 


0049 


DELX 


0043 




DRH 


0122 


0121 


0120 


Dl 


0123 


10 1 




D2 


0123 


0122 


0101 


03 


*0099 






0101 






D6 


0061 






D7 


0061 






E 


0074' 






EXP 


0031 


0030 




F 


0072 


0069 


0069 


FUNCT 


'"'0063 


0063 


0063 


009 1 






*0086 


0086 


0086 


G 


0075 


0073 




I 


*0066 






0114 


0074 


0072 


1 1 


»0063 


0063 


0063 


00 59 


0058 




12 


0115 


0114 


0111 


I 3 


0115 


0114 


0114 


14 


0115 


0114 


0112 


I 5 


0116 


0109 




16 


0116 






17 


0116 






18 


0116 






19 


0116 






J 


0091 


0090 


0075 




•»0079 


0079 


0078 


Jl 


0116 






K 


0075 
*00 2 1 


00 22 




L 


009 1 


0090 






*0086 


0086 


0086 




008 1 






M 


0097 


0096 




MOD 


0021 






N 


0021 






NAMET 


00 16 






NLHl 


0047 






NLH2 


0047 






NLH3 


0047 






NLH4 


106 


0047 




NLH5 


0106 


0047 




NXHl 


0106 






NXH2 


0106 






SIN 


0099 


0098 


00 69 


SINF 


0100 






SORT 


0034 






SQRTF 


100 






VALUE 


0090 








»0083 


0082 


0082 


X 


0043 


0042 


0041 




0030 


0029 


0029 




#0043 


0026 


0022 


XM AX 


0042 






XZERO 


0026 






XI 


0037 







0036 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0125 



XIO 

X2 

X3 

X4 

X5 

X6 

X7 

X8 

X9 

Z 



0041 
0037 

0037 0036 

0038 

0038 

0039 0033 
0039 
0040 
0041 

0061 0060 
#0060 



« OTHER CARDS WHERE VARIABLES ARE DEFINED 



•CODE DIAGS 
SYSTEM LOAD 



ERR 38 


1 COMMQNA»A 


0001 


ERR 01 


' RETURNS 


0003 


ERR 01 


' ENDSEGMENTl 


0004 


ERR 02 




0005 


ERR 10 


1 Dm ? 1 = 1 . 


0006 


ERR 02 




0006 


ERR 02 


i STOP 


0007 


ERR 33 




0008 


ERR 03 




00 1 1 


ERR 04 


' BEGINSEGMENT5 


00 1 2 


ERR 05 


1 J = j+ 1 ) 


0013 


ERR 06 


• G0T01212121 


0014 


E RR 06 




0015 


ERR 07 


• 1 ft r nKi T T Ml IF 


00 19 


ERR 08 


t C. ^ OU 1 Li ^ 


0021 


ERR 09 


• ft nnft 11 =s 1 . 

O UUOJL — It-' 


0022 


ERR 10 




0023 


C r\rv i i 


A— i • • t 

IN U rf — ' \i C A IM IN 1 C 


0024 


FRR 1 7 


0025 


ERR 1 3 




0027 


E RR 14 


0028 


ERR 14 


' DIMENSIONR (K ) 


0029 


E RR 1 5 




0030 


F^RR 1 R 




003 1 


ERR l6 


1 ]^ GOTOl 


0032 


ERR 17 


1 / C = l 


0034 


E RR 1 8 


UU*Ti — 1 fIN 


0035 


E RR 1 9 


• RFfi IN TR AT F A - ? 


0036 


E RR 1 9 


• RF I M TR A r F 1 R 7 


0037 


ERR 20 


' ArrFPT'^.A 

' READ3, (ZX(I )I=1,3) 


0040 


ERR 2 1 


0041 


ERR 22 


< rnMMDNiy 

Ul in UIN A 


0042 


E RR 14 




0042 


E RR 2 3 


1 PRTMTI.k 
r f\ X IN 1 1 1\ 


0043 


ERR 26 


1 PRTIMTI.K 


0043 


ERR 12 


• PR I WT 1 . K 


0043 


ERR 25 


■ 1 1 FORM A T MS) 
X X nui\i IH i \ I J 1 


0045 


ERR 30 


t L ( L ) = A 


0047 




• DPAn^ /7y/M1.M— 1-fl*l 
KCAU^t lt.Al(NJ fIN— XfOW| 

' 7ft7ft FnRM AT ( T 1 T 4 
fOfO ruisnMi iij?jx^ 


0048 


ERR 29 


0049 


ERR 29 


' ?7Q FHRMATf'^H I ) 


0050 


ERR 30 


1 1T=A— B 


0053 


E RR 30 


I A = A R«»r4- ( 1 


0054 


ERR 3 1 


1 Y = 1 • 


0055 


ERR 33 


1 A=B— J 


0056 


ERR 36 


• 4S'^^ T F ( AR RAfiFP A I 1 T'^OUTTFFIJI 1 14.5 


0057 


ERR 14 


' D IMENS I ONDD ( ( 2 ) ) 


0058 


ERR 38 


• DIMENSI0NY(3) 


0059 


ERR 39 


• J=l 


0061 


ERR 40 


• D IMENS lONCOSF ( 20 ) 


0062 


ERR 40 


I ABSF(5)=2. 


0063 


ERR 12 


• ABSF(5)=2. 


0063 


ERR 41 


• 100 FORMAT( 100F2.0) 


0064 


ERR 33 


' DATA, A/1/ 


0065 


ERR 34 


• 0ATA,A/6HABCDEF/ 


0066 


ERR 35 


• DATA,X/1. 

' DATA,I/1HAB/ 


0067 


ERR 35 


0068 


ERR 24 


' DATA,Y (I )/3.0/ 


0069 


ERR 35 


' DATA, A/ 


0070 


UNDEF 


LABLS 





3000 8000 5 

UNDEF SMBLS 

KQ 

□PEN DO 

19 8 22 



COMMQNA,A 0001 

DIMENSI0NY(2) 0002 

RETURNS 0003 

ENDSEGMENTl 0004 

ICONTINUATIONCARDFIRSTCARDOFSTATEMENT 0005 

D012J=1, 0006 

STOP 0007 

A=C0S(1) 0008 

B=NABS(J) 0009 

3 READ4,A,B,C,D,E 0010 

3 F=E 0011 

BEGINSEGMEIMT5 0012 

I=J+1) 0013 

GOT01212121 0014 

2 GOTOJ 0015 

118 1=1 0016 

00181=1,2 0017 

D019J=1,3 0018 

18 CONTINUE 0019 

D0123JK=1,4 0020 

123 G0T03 0021 

8 008JL=1,5 0022 
001,1=1,2 0023 
A=1..2 0024 
NOW=JEANNIE 0025 
DIMENSIONZXC 12) 0026 
ZX(B)=0. 0027 
DIMENSiaNP(l,2,3) 0028 
DIMENSIONR (K) 0029 
EQUIVALENCE(A,B) 0030 
CALLBAA{A)-B 0031 

1 GOTOl 0032 

9 1=1 0033 



/ C=l 0034 

D04I=1,N 0035 

BEGINTRACEA3.2 0036 

BEGINTRACE15.7 0037 

N=2«I 0038 

4 CONTINUE 0039 

ACCEPT3,A 0040 

READ3, (ZX(I )I = 1,3) 0041 

COMMONX 0042 

PRINTJ,K 0043 

ENDSEGMENT5 0044 

11 F0RMAT(I5) 0045 

0022M=1,KQ 0046 

L(L)=A 0047 

READ3, (ZX (N) ,N=1,8») 0048 

7878 FORMAT (13)14 0049 

279 FORMAT ( 3H 13) 0050 

EXECUTEPROCEDURE3000 0051 

CALLSEGMENT8000 0052 

1T=A-B 0053 

A=A~B**C+() 0054 

Y=10. 0055 

A=B-J 0056 

4533 IF (GARBAGEPAILISQUITEFULL)4,5 0057 

DIMENSIONOO( (2) ) 0058 

DIMENSI0NY(3) 0059 

G0T04 0060 

j=l 0061 

DIMENSIONCUSF(20) 0062 

ABSF(5)=2. 0063 

100 FORMAT( 100F2.0) 0064 

DATA, A/1/ 0065 



DATA,A/6HABCDEF/ 
DATA,X/1. 
DATA, I/IHAB/ 
DATA, Yd )/3.0/ 
DATA, A/ 
END 



•RUN DIAGS 
SYSTEM LOAD 
DIAGS NOT GN FILE 



•CODE UDV 217 

SYSTEM LOAD 

07650 
07686 
39999 COS 
39959 EXP 
39919 SORT 
39879 NABS 
39839 DRH 
39799 MOVE 
39759 SAVE 
39719 NFIL 
39679 I 



1=1 + 1 
END 



39989 COSF 
39949 eXPF 
39909 SORTF 
39869 NABSF 
39829 DRHF 
39789 MOVEF 
39749 SAVEF 
39709 NFILF 
39669 0000000001 



39979 SIN 
39939 ALOG 
39899 ABS 
39859 ATAN 
39819 NPR 
39779 MOD 
39739 LINK 
39699 NUPL 
39659 



000 



39969 
39929 
39889 
39849 
39809 
39769 
39729 
39689 



SINF 

ALOGF 

ABSF 

ATANF 

NPRF 

MOOF 

LINKF 

NUPLF 



0001 
0002 



o 



'RUN UDV 217 
SYSTEM LOAD 

SEGMENT SYMTAB ADDR 0000 UNDV, NEXT INSTR— 

39900 ' • • • •02585963-*02585963-+M1535647-*M1535647-+M5675746-+M5675700-*a2495546-+02495500-+M3566246-+M3566200 
39800 ' • " •N5575946-+N5575900-*M4594846-+M4594800-+M1634155-*M1634155-+N5414262-*N5414262-*M1426246- + M1426200 
39700 • • • • •N5464953-*N5464953-*N3495552-+N3495552-*02416545-+02416545-*N4564446-+N4564400-*N4566545-*N4566545 
39600 ' ' " '-0000O00*+-OO000O0*+-00O000O++-0000000**-0O00O0R99-00000O — +-000000001M9000000-+N5645753-+N564b753 



19? 



'CODE FMTLG 

SYSTEM LOAD 

07650 
07686 
07686 
07686 
07686 
07686 
FORMAT TOO LONG 



READ1,I 
1 FORMAT (50H 

1 50H 

2 50H 

3 50H 

4 50H 



50H 



0001 
0002 
0003 
0004 
0005 
116) 0006 



I 16) 



•RUN TESTl 
SYSTEM LOAD 
HO HO HQ HO 

SEGMENT 9000 TESTS DISK DATA STORAGE UNDER THE MOVE ROUTINE 

1 1.0 2 2.0 3 3.0 4 4.0 5 5.0 
6 6.0 7 7.0 8 8.0 9 9.0 10 10.0 

SEGMENT 9100 INVERTS A NEAR-SINGULAR MATRIX 

^E?f rHE^pR^Or^Fj^^M^^I^Opl^GlT^'N^J.^ llull' ol^f'"''' ''''''''' 

•nn^^?RRR 'SS^i^^RSS -.00100000 .00400000 -.00140000 

"•^^SRS.^SS5 •^^^?,9990 -.00050000 .00200000 .00010000 

-.00000900 -.00010000 .99970000 .00200000 !o0060000 

-.00000400 .00000000 -.00070000 1.00300000 -.00020000 

.00000800 .00000000 -.00080000 .00110000 .99960000 

SEGMENT 9200 GENERATES STANDARD NORMAL DEVIATES BY SUMMING RANDOM INTEGERS 

"•cZII^S^^J °° -.59061000E 00 -.83801000E 00 -.18343800E 01 -.59712000E 00 
.57057000E 00 .89262000E 00 .13486900E 01 -.16082000E 00 .20585000E 00 



TEST2 TESTS SUBROUTINES 

1 3863 l.QOO 3861 

3 3863 3.Q00 3861 

1 3863 1.000 3861 



1 3863 
4 3863 



1.000 3861 
4.000 3861 



SIN(X) 
EXP(X) 
LOGiX ) 
SQRT(X) 
ATAN(X) 



COSIX) 
EXP(-X) 
LOGIO(X) 

L0G10(TAN(X) ) 



TAN(X) 



.40000000 
.40000000 
.40000000 
.40000000 
.40000000 
.60000000 
.60000000 
.60000000 
.60000000 
.60000000 
.80000000 
.80000000 
.80000000 
.80000000 
.80000000 



.38941834 
1.49182470 
-.91629073 
.63245553 
.38050637 
.56464247 
1.82211880 
-.51082562 
.77459667 
.54041950 
.71735609 
2.22554090 
-.22314355 
.89442719 
.67474094 



FLOATING POINT ARITHMETIC 



4.44400000 
-.50000000 
1.23432100 
1 .00000000 
1.00000000 

4.00000000 
1 .00000000 
4 

7.00000000 
1.00000000 
7 

10.00000000 
1 .00000000 
10 

1 .00000000 
1.00000000 

1 

4.00000000 
1.00000000 
4 

7,00000000 
1.00000000 
7 

10.00000000 
1 .00000000 
10 

5.00000000 
10.00000000 
1 .00000000 



36.56516000 
5.19804550 
.81016201 



2. 10000000 
2.40000000 
2.70000000 
3.00000000 
2. 10000000 
2.40000000 
2.70000000 



3.00000000 
5. 10000000 
10.10000000 
1.10000000 



.92106099 
.67032004 
.39794000 

.37387198 
,82533561 
.54881163 
.22184874 

.16485704 
.69670670 
.44932896 
.09691001 

.01268477 



.50000000 
.16666666 
.00000000 



.42279322 



.68413681 



1.02963850 



.79144978 
.16666666 



THIS IS THE 1ST OF THE 4 LOOPS OF DO 130 



THIS 



THIS 



THIS 



.11100000 
.12500000 



2.22200000 
2.00000000 



-.54319181 
-.54319181 



IS THE 2ND OF THE 4 LOOPS OF DO 130 



.11100000 
.12500000 



2.22200000 
2.00000000 



-.54319181 
-.54319181 



IS THE 3RD OF THE 4 LOOPS OF DO 130 



.11100000 
. 12500000 



2.22200000 
2.00000000 



-.54319181 
-.54319181 



IS THE 4TH OF THE 4 LOOPS OF DO 130 



.11100000 
.12500000 



2.22200000 
2.00000000 



INTEGER 



STOP 0555 



ARITHME 
22 
66 
66 



TIC 



11 

33 



-.54319181 
-.54319181 



33 
242 



1.06872570 
1 .06870000 



1.06872570 
1 .06870000 



1 .06870000 
1.06870000 



1.06870000 
1 .06870000 



7986 



1 .00000000 



1 .00000000 



1.00000000 



1.00000000 



Lu I 1 1:> 1 1 
SYSTEM LOAD 



CUT TEST2 
SYSTEM LOAD 



•DISK 

SYSTEM LOAD 

000 
64000 



o 




'CODE MLM 
SYSTEM LOAD 

07650 DIMENSIONA(10),B(50)»C(100),M(100),G(200,20) 0001 



